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Sanyo mpc 64 

deutsche Tastatur, Resettaste 

und Einschafter obenliegend, 

2 Modulslot 


CPS 99 mit einem Laufwerk 1.698, 
DS DD = 360 K mit 32 K-RAM, 

2 x RS 232, Centronics Interface 
Disk-Controller DS DD 

CPS 99 mit zwei Laufwerken 2.198, 
DS DD = 720 K mit 32 K-RAM 
2xRS 232, Centronics Interface 
Disk-Controller DS DD 


MSX-Zubehör 


Externe Erweiterungen 


Disk-System 2,8“ QDM-01 398, 

2,8“ Diskette 2x64 K (Quick-Disk) 
umfangreiche Software 
1 Jahr Garantie 

Disketten 2,8“ (10 Stück) 89, 

Software auf Modul 

oder Quick-Disk ab 39, 

MSX-Einsteiger-System 898, 

bestehend aus: 

1 MSX Computer Yashica YC-64 
1 Disk-System 2,8“ (Quick-Disk) 

Für weiteres Zubehör und Software 
fordern Sie unsere kostenlose Preis¬ 
liste. 


NEU - NEU - NEU - NEU - NEU - NEU 
256 K Byte RAM-Expansion 
(RAM-Disk) 598,- 

- Ausbaubar bis 1 Megabyte 

- Betrieb mit vorti. 32K Byte Erweiterung möglich 

- Unterstützt Basic, Extended Basic u. Assembler 

- Erweiterter Befehlsvorrat für Basic u. Ext. Basic 

- Ultraschneller Zugriff auf bis zu 8 Programme 
durch RAM-Banklng (bei 256K-Version) 

- Wesentlich schnellere Bearbeitung von Disk-Files 

- Schnittstelle für Softcard eingebaut 

Alle Preise incl. MwSt zuzügl. 5,- DM 
Versandkosten. Ueferung per Nach- 
nähme oder Vorkasse. [ Mm] l 1 |$j| 

Ab 200,- DM versandkostenfrei. 

Fordern Sie kostenlos 
unsere Sonderpreisliste ani. 


Programm-Service 


* D-5584 Bullay 

Bergstraße 80 

GmbH Telefon 0 65 42 / 2715 


Die nächste 
TI-REVUE 
am 31.1.1986! 


Wie immer steht unseren Lesern unser Telefon-Service 
zur Verfügung! Jeden Dienstag von 15 bis 19 Uhr. 
x Für technische Fragen: 0731/33220 und 
für Listings/Programme: 0 89/129 8013 


Wir lassen den TI-USER nicht im Stich! KARTEN FÜi 



CPS 99: Das kompakte System! 
2 x RS 232, 1 x Parallel Interface 
32 KByte, Speichererweiterung 
Disketten-Controller/Disk-Drive 

32 K RAM Erweiterung 
Centronics Interface 
V24 (RS 232) Interface 
32 K RAM + Centronics 
Exterrie Disk-Laufwerke 
RS 232/Centronics Karte 


PERIPHERIF 

Neu: 256 K-Speicherei#; 
(RAM-Disc) 

• Bis 1 MB ausbaubar, umfar 
implementiert * Für Basic + l 

• 32 K RAM Erweiterung 

• Disk-Controller (bis zu 4 

• Interface Karte mit 32 

• Controller Karte mit 3k 


FORDERN SIE DIE PREISLISTE AN! 
atronic-Produkte bekommen Sie bei jedem guten Tl-Händler oder 

atronic • Meiendorfer Weg 7 • 2000 Hamburg 73 • Tel. 0 40 / 6 78 93 08-09 • Tx 











INHALT 


Grüß Gott-Gruezi-GutenTag 


Mit dem Jahreswechsel stellen wir 
nun auch die Numerierung der ein¬ 
zelnen Ausgaben der TI-REVUE um. 
Bisher hatten wir alles durchnume¬ 
riert, d.h. begonnen hat es mit der 
Nr. 1 /84 bis hin zu 9/85. Mit dieser 
Ausgabe beginnen wir also nun 
,,wieder“ bei 1/86. Die erste Ziffer 
ist dabei der Monat, die zweite die 
Jahreszahl. 

Unser Lesertelefon ist in den letzten 
Wochen auch wieder sehr stark ge¬ 
fragt, nach etwas ruhigerem Verlauf 


zu erledigen. Das müssen wir etwas 
verteilen. Insbesondere bei Assem¬ 
blerprogrammen, die nur als Poke- 
liste oder für das Mini-Memory auf 
Kassette eingesandt werden, bitten 
wir um etwas mehr Geduld. Zur Be¬ 
gutachtung müssen wir hier jedes¬ 
mal erst den Quellcode erstellen 
und das braucht sehr viel Zeit. 

Zu guter Letzt für heute an dieser 
Stelle noch einen Hinweis zu unse¬ 
rem Kassetten-/Disketten-Service. 
Auf den Kassetten befinden sich nur 



Nr. 1/86 
Januar 

DIALOG 

Mein Modulator stimmt mit • 
keinem der von Ihnen 
beschriebenen überein. 

Deutscher Zeichensatz für 
meinen Drucker? 

Programme von Kassette auf 
Diskette? 

I/O-Port des TI 
Nachbestellungen 
Eprom-Programm 
Doppelseitiges Disketten- 
Laufwerk 4—5 


SERIE & SERVICE 

Assemblerkurs leicht 
gemacht 

6-9 

Dateien auf Kassette eröffnen 

und gleichzeitig 
bearbeiten 

11-13 

Drucker — optimal eingestellt 52 

Clubecke 

53 

Scroll-Unterroutinen 

54-55 

Vom Disassembler zum Quell- 

Code 

56-57 

Der neue TI — noch immer 

nur auf dem Papier 

59 

Börse 

60-63 


TIPS & TRICKS 

Tips & Tricks rund um den 

TI 99/4A 

10 

Softwaretest: Wenn 007 am 

Galgen hängt 

11-16 


LISTINGS 

Eleso-Eumel 

18-21 

Dreiecksberechnungen 

22-25 

Beschriftungen 

26-27 

Kurvendiskussionen 

28-35 

Mau Mau 

36-41 

Speed ball 

42-47 

Die elektronische 
Schießbude 

48-49 

Das Galgenspiel 

50-51 


in der Sommerzeit. Insbesondere 
bei der Telefonnummer für techni¬ 
sche Fragen lassen sich ab und zu 
wohl Wartezeiten nicht vermeiden. 
Häufig wurden wir auch gebeten, 
unsere Telefonzeiten zu verlängern. 
Das können wir leider nicht tun, 
denn irgendwann müssen wir auch 
einmal die TI-REVUE fertigstellen, 
damit Sie sie immer pünktlich in 
den Händen haben. Übrigens kön¬ 
nen Sie jetzt über die Nummer für 
Fragen zu den Listings jeden Diens¬ 
tag-Nachmittag auch unseren Abo- 
und Kassetten-Service erreichen. 
Streng nach Murphy’s Gesetzen 
geht es bei uns wohl auch bei den 
eingesandten Listings zu: In einer 
Woche kommen sie zuhauf, in den 
folgenden Wochen dann wieder 
kaum eine. So sind wir manchmal 
zeitlich etwas überfordert, so eine 
Menge Einsendungen in kurzer Zeit 


die unter der Rubrik LISTINGS ver¬ 
öffentlichten Programme. Auf den 
Disketten sind auch alle Tips und 
Tricks und die Assembler-Program¬ 
me enthalten. 

Zum Jahreswechsel die besten 
Wünsche von 
Eurem TI-REVUE-Team 
Nicht vergessen: Seid Ihr mit dem 
Heft zufrieden, sagt es weiter, seid 
Ihr unzufrieden, sagt es uns. 

Und: Jeden Dienstag von 15 bis 19 
Uhr stehen Ihnen unsere Lesertele¬ 
fone zur Verfügung. Für technische 
und A ssem bl er-Fragen Tel. -Nr. 
0731/33220 und zu den Listings 
Tel.-Nr. 089/1298013. 

Wir bitten um Verständnis, daß am 
31.12. und am 7.1. das Lesertelefon 
nicht besetzt ist. 

PS: Unser Abo- und Kassettenser¬ 
vice bittet Sie, die Seite 58 beson¬ 
ders aufmerksam zu studieren! 
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BRIEFE 


MODULATOR IN 
KUNSTSTOFFGEHÄUSE 


Mit Interesse habe ich in 
Heft 7/85 die Ergänzung 
des Modulators gesehen, 
um einen Monitoranschluß 
zu erhalten. Auch in ande¬ 
ren Berichten werden aber 
immer andere Modulato¬ 
ren beschrieben, als ich ihn 
habe. Mein TI 99/4A 
stammt aus jenen Ramsch¬ 
verkäufen, wo die Konso¬ 
le für knapp 200,— DM 
und das Extended Basic 
Modul für 109,- DM ver¬ 
schleudert wurden. Das 
Modul mit der Beschrei¬ 
bung war übrigens für den 
99/4 gedacht, läuft aber 
ohne Probleme auf mei¬ 
nem 99/4A. In unserer Ge¬ 
gend stammen alle Konso¬ 
len aus Italien und der 
Modulator ist von der ita¬ 
lienischen Firma Siel, die 
das IC LM-1889 einsetzt. 
Hat irgend jemand in die¬ 
sen Modulator einen Mo-- 
nitoranschluß eingebaut 
oder wissen Sie, wie das 
geht? Da es sicherlich vie¬ 
le User mit diesem Modu¬ 
lator gibt und das Fern¬ 
sehbild eher als beschei¬ 
den zu beschreiben ist, 
wäre das sicherlich auch 
für andere interessant, 
vor allem steht mein 
Farbmonitor ziemlich 
nutzlos herum, den ich ge¬ 
schenkt bekommen habe. 
Nicholas Haagensen 
Steinhagen 

Abgesehen vom Hochfre¬ 
quenzteil (er arbeitet ja 
auch auf einem anderen 
Fernsehkanal) ist die 
Schaltung Ihres Modula¬ 
tors identisch mit derje¬ 
nigen im Metallgehäuse, 
d.h. auch dort wird das 
IC LM 1889 verwendet. 

Sie können die Schaltung 
aus Heft 7/85 oder auch 
andere Schaltungen durch¬ 
aus verwenden. Öffnen 
Sie die Abschirmung des 
Modulators nach dem 
Aufschrauben des Gehäu¬ 
ses, indem Sie die Blech¬ 
laschen, die den Deckel 
halten, gerade biegen. 
Löten Sie den Eingang 
EIN der Musterschaltung 
an Pin 13 des LM 1889 
an. Alle anderen benötig¬ 


ten Anschlüsse sind ja an 
der Seite gekennzeichnet 
vorhanden. Der Zusam¬ 
menbau des Modulators 
dürfte dann wohl keine 
weiteren Schwierigkeiten 
bereiten. Wir möchten 
Ihnen aber dennoch emp¬ 
fehlen, sich bei einer gün¬ 
stigen Gelegenheit einen 
der Modulatoren mit Me¬ 
tallge häuse an zu schaf¬ 
fen. Hier ist auch das 
Fernsehbild besser. 
Übrigens sind nahezu alle 
hier verkauften TI 99/ 

4A in Italien zusammen¬ 
gebaut und auch allen Ex- 
tended-Basic-Modulen 
liegt die Anleitung für 
den TI 99/4 bei. Das 
macht gar nichts. Jegli¬ 
ches Modul, welches auf 
dem TI 99/4 läuft, arbei¬ 
tet auch auf dem TI 99/ 
4A. Nur umgekehrt kann 
es Schwierigkeiten geben. 


DEUTSCHE ZEICHEN 
AUF DEM DRUCKER 


Ich habe mehrere Fragen 
an Sie: 

1. Ich möchte gern mal 
wissen, wo der TI anfängt, 
die in einem GOSUB 
oder GOTO Statement an¬ 
gegebene Zeilennummer 
zu suchen? 

2. Ist es möglich, den 
automatischen CHARSET, 
der beim Nachladen eines 
Programms auftritt, soft¬ 
waremäßig zu verhindern? 


3. Ist es möglich, dem TI 
softwaremäßig die Re¬ 
chengenauigkeit zugunsten 
der Arbeitsgeschwindigkeit 
zu nehmen? 

4. Wie bekomme ich mei¬ 
nen Drucker (Brother EP 
22) dazu, den deutschen 
Zeichensatz zu drucken? 

5. Kann man den TMS 
9900 durch seinen schnel¬ 
len Bruder den TMS 9995 
ersetzen? 

Michael Zieske 
Berlin 


Jedes Basic-Programm be¬ 
steht im Speicher des TI 
99/4A aus zwei Teilen: 
Einer Zeilenliste und den 
reinen Programmzeilen. 

Bei einem Sprung sucht 
der TI 99(4A die Zeilen¬ 
nummer in der Zeilenliste. 
Die Zeiger auf die Zeilen¬ 
liste finden Sie auf den 
Speicherstellen >8330 
(Anfang der Liste) und 
>8332 (Ende der Liste). 
Die Liste selber ist nach 
dem Schema Zeilennum¬ 
mer, Zeiger auf die Zeile 
im Speicher usw. aufge¬ 
baut. Die Zeilenliste liegt 
im VDP-RAM, außer bei 
Extended Basic mit 
Sp eich ererweiterung, h ier 
liegt sie in der Speicherer¬ 
weiterung. Das automati¬ 
sche Zurücksetzen der 
Charakterdefinitionen kön¬ 
nen Sie nur im Extended 
Basic verhindern. Bei 
dem Befehl R UN "CS1 “ 
bzw. RUN “DSK1.XXX" 
bleiben die bisherigen De¬ 
finitionen erhalten. 

Von einer Möglichkeit, 
die A rbeitsgesch windigkeit 
zu steigern bei gleichzeiti¬ 
gem Verzicht auf die Re¬ 
chengenauigkeit, ist uns 
bisher nichts bekannt. Das 
dürfte auch schwer sein, 
denn die ganzen Operatio¬ 
nen sind ja im ROM fest 

einprogrammiert. 

Um einem Drucker dis 
deutschen Sonderzeichen 
beizubringen, müssen Sie 
zuerst den Drucker auf 


den deutschen Zeichen¬ 
satz umstellen. Wie das 
geht, finden Sie im Hand¬ 
buch zu Ihrem Drucker. 
Ist dies geschehen, so er¬ 
reichen Sie die deutschen 
Zeichen über einige Zei¬ 
chen auf der Tastatur: 
Eckige Klammer auf ist 
das Ä, eckige Klammer zu 
ist Ü, geschweifte Klam¬ 
mer auf ist ä, geschweif¬ 
te Klammer zu ist ii, der 
senkrechte Doppelstrich _ 
ist ö, der Schrägstrich von 


links oben nach rechts un¬ 
ten ist Ö und die Wellen¬ 
linie ist ß. Der TI 99/4A 
wird auf dem Bildschirm 
immer noch die auf der 
Tastatur aufgedruckten 
Zeichen anzeigen. Wenn 
Sie diese aber mittels 
PRINT an den Drucker 
ausgeben, schreibt er die 
deutschen Sonderzeichen. 
Der TMS 9995 ist zwar 
softwaremäßig voll kom¬ 
patibel zum TMS 9900, 
der ja im TI 99/4A einge¬ 
baut ist, jedoch ist er 
nicht mit der Hardware, 
sprich Schaltung, im TI 
99/4A ein setz bar. Zu¬ 
mindest erfordert dieser 
Umbau soviel Arbeit und 
Neukonstruktion, daß 
Sie lieber gleich einen 
neuen Computer mit dem 
TMS 9995 entwerfen. 


PROGRAMME VON 

KASSETTE 

AUF DISKETTE 


Ich besitze noch einige 
Programme in Extended 
Basic, die seinerzeit auf 
Kassette gespeichert wur¬ 
den, weil ich zu dieser 
Zeit noch keine Disket¬ 
tenstation besaß. Meine 
Versuche, diese Program¬ 
me auf Diskette zu über¬ 
spielen, scheitern mit der 
Fehlermeldung “ERROR 
DETECTED IN DATA“. 
Wird dagegen ein neues 
Programm in gleicher 
Sprache geschrieben und 
bei eingeschalteter Er¬ 
weiterungsbox auf Kasset¬ 
te gespeichert, läuft alles 
ordnungsgemäß. Wird 
später bei eingeschalteter 
Box wieder eingespielt 
und nun auf Diskette ge¬ 
schrieben, gibt es keine 
Probleme. Alle in TI- 
Basic auf die geschilderte 
Weise gespeicherten Pro¬ 
gramme (gilt auch für TI 
LOGO Prozeduren) lassen 
sich dagegen problemlos 
auf Diskette speichern. 
Gibt es dafür eine Er¬ 
klärung? 

Dr. Arnim Tölke 
Berlin 

Der Disk-Controller benö¬ 
tigt im VDP-RAM einen 
gewissen Speicherplatz, 
der Ihnen auch zum La¬ 
den der Programme von 


LESERBRIEFE UND FRAGEN SIND UNS STETS 
WILLKOMMEN. WIR BEANTWORTEN SIE ENTWEDER 
DIREKT ODER AUF DER LESERBRIEFSEITE 
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BRIEFE 


Kassette dann nicht mehr 
zur Verfügung steht. Ist 
ein Programm nun zu lang, 
um in den restlichen Spei¬ 
cherplatz des VDP-RAM's 
zu passen, kommt die von 
Ihnen erwähnte Error- 
meldung. Gehen Sie wie 
folgt vor: CALL FILES 
(1) und dann NEW einge¬ 
ben. Mit CALL FILESf 1) 
beschränken Sie den Spei¬ 
cher für den Diskcontrol¬ 
ler auf das mögliche Mini¬ 
mum. Jetzt laden Sie Ihr 
Programm von Kassette. 
Kommt es immer noch zur 
Fehlermeldung, bleibt Ih¬ 
nen nichts anderes übrig, 
als das Programm bei ab¬ 
geschalteter Peripherie¬ 
box zu laden und zu kür¬ 
zen (Löschen aller REM- 
Zeilen), ggf. müssen Sie 
es durch Löschen mehrer 
Zeilen in zwei Teile zer¬ 
legen. Dann speichern Sie 
das gekürzte Programm 
wieder auf Kassette. 

Nun können Sie das Pro¬ 
gramm (bzw. die beiden 
Teile) bei eingeschalteter 
P.-Box wieder von Kas¬ 
sette laden und auf die 
Diskette überspielen. Ggf. 
noch die beiden Teile 
miteinander mergen. 

I/O-PORT DES TI 99/4A 

Ich habe eine Frage be¬ 
züglich des I/O-Ports am 
TI 99/4A. Sie haben in 
der Ausgabe 3/84 die Pin¬ 
belegung dieses Ports ab¬ 
gedruckt, ohne jedoch die 
Lage der Pins anzugeben. 
Könnten Sie mir diese 
nennen? Ohne die Lage 
der Pins zu Kennen, ist die 
Belegung ziemlich wertlos. 
Markus Kutri 
Niederschach 
Wenn Sie auf den seitli¬ 
chen Stecker des TI 99/ 

4A sehen, befindet sich 
Pin 1 unten links, Pin 2 
darüber, Pin 3 rechts ne¬ 
ben Pin 1, Pin 4 über Pin 
3 neben dem Pin 2, Pin 5 
rechts neben Pin 3 usw. 

EPROM-PROGRAMM 

Ich hätte folgende Frage 
an Sie: 

Ist es möglich, Program¬ 
me, die in einem Eprom 
enthalten sind, mit dem 
Eprom-Burner aus Heft 6 


und 7/85 im Computer 
zu verarbeiten oder be¬ 
nötigt man dazu ein eige¬ 
nes Modul? 

Gerald Fingerlos 
Eisbethen 

Direkt im Eprommer kann 
der TI 99/4A keine Pro¬ 
gramme erkennen. Dazu 
benötigen Sie eine eigene 
Schaltung. Geeignet ist 
hier die in der TI-REVUE 
5/85 vorgestellte Modul¬ 
platine. Auf dieser können 
Sie einmal Assembler¬ 
programme und/oder 
GPL-Programme unter¬ 
bringen. 

HEFTE NACHBESTELLEN 

Wenn Ihnen noch TI- 
REVUE-Ausgaben von 
1985 zur Verfügung ste¬ 
hen, bitte ich Sie mir un¬ 
ter Nachnahme alle Aus¬ 
gaben 1985 bis jetzt zu 
schicken. 

E. Schilden 

Den Haag/Niederlandc 

Nachnahme ins Ausland 
ist teuer, im Verhältnis zu 
dem Preis des Heftes viel 
zu teuer. Die Nachnahme¬ 
gebühr beträgt mehr als 
das Vierfache des Heft¬ 
preises. Am einfachsten 
schicken Sie uns aus dem 
Ausland deshalb einen 
Euro-Scheck in Höhe des 
Betrages für die gewünsch¬ 
ten Ausgaben (bis 3/84 
DM 4,80 je Heft, alle an¬ 
deren 5,50 DM). 

Ebenfalls möglich ist, wie 
bei den Inlandsbestellun¬ 
gen, die Bezahlung auf un¬ 
ser Postscheckkonto Nr. 
0416103-805 beim Post¬ 
giroamt München unter 
Angabe der gewünschten 
Ausgaben (1—9). 

Aber bitte beeilen, lang¬ 
sam gehen die alten Hefte 
aus! 

DOPPELSEITIGE 

DISKETTEN 

Ich habe nun in meine Pe¬ 
ripheriebox zwei doppel¬ 
seitige Laufwerke einge¬ 
baut. Nun kommt, wenn 
ich Disketten mit dem 
Disk-Manager 2 initialisie¬ 
ren will, immer die Mel¬ 
dung “Fehlerhafte Dis¬ 


kette“. Laut der dazuge¬ 
hörigen Anleitung eignet 
sich aber der TI-Disk-Con- 
troller Für doppelseitige 
Laufwerke. Wo liegt der 
Fehler? 

Peter Kleinschmidt 
Kaarst 

Sicherlich verwenden Sie 
den Disk-Manager 2 in 
deutsch. Hier ist ein Feh¬ 
ler enthalten. Die Abfrage 
‘Einseitig“ und “Einfa¬ 
che Dichte“ sind vertauscht. 
Geben Sie bei der Frage 
nach der Seitenzahl den 
Wert für “einseitige“ Lauf¬ 
werke ein und bei “Ein¬ 
facher Dichte“ für doppel¬ 
te Dichte ein. Die Diskette 
wird dann doppelseitig 
mit einfacher Dichte ini¬ 
tialisiert. Im englischen 
Teil des Disk-Managers ist 
die Abfrage übrigens rich¬ 
tig und erscheint auch auf 
dem Bildschirm vertauscht. 

TOMBSTONE CITY DES 
E/A-MODULS 

Seit einiger Zeit bin ich 
Besitzer des Editor-/ 


Assembler-Moduls mit da¬ 
zugehöriger Software. 

Als ich das Programm in 
TI-Basic startete, funktio¬ 
nierte das auch, bis auf ei¬ 
ne „Kleinigkeit“. Anstatt 
des normalen Zeichensat¬ 
zes erschienen nun überdi¬ 
mensionale Großbuchsta¬ 
ben. Nun meine Frage: 

Wie kann dies geändert 
werden? 

Josef Bailago 
Deggingen 

Das Spiel Tombstone 
City, welches dem Editor- 
Assembler-Modul als 
Quell- und Objectcode aus 
Anschauungsgründen bei¬ 
liegt, ist nicht geeignet 
zum Aufruf aus Basic. Es 
lädt die verwendeten Zei¬ 
chensätze nur teilweise 
bzw. setzt einige Grund¬ 
werte voraus. Startei: Sie 
dieses Spiel aus dem 
Editor/A ssembler-Modul. 
Wählen Sie also dieses Mo¬ 
dul aus der Hauptwahl¬ 
liste des TI 99/4A und 
laden das Spiel dann über 
den Menüpunkt 3 LOAD 
AND RUN. Dann arbei¬ 
tet das Spiel einwandfrei. 


WICKERT COMPUTERSHOP 

Winterstraße 17,1000 Berlin 51,030/4917042 
Öffnungszeiten: Mo-Fr 10-18 h Sa 09-13 h 

f jähJickertl 



CPS 99 m. 1 Laufw. 1698,- 
Power-Stick 2-fach 79,- 

.ExBasic deutsch 235,- 

ExBasic 11 plus 310, 

Terminal-Emulator II 135, 

TE-II Handbuch deutsch 18, 
Text-Sprachausgabe deutsch 

mit Diskette 49, 

Eycove Foth Disk, mit 
deutschem Handbuch 98, 

UCSD Pascal komplett 998, 
Tl-Writer deutsch 320, 


Konsole TI 99/4A 345,— 

32 KB-Ram ext. 298,— 

32 KB+Centr. ext. 398,— 
Assemblerkurs ASEM-4 98,— 
Mini-Assembler 149,— 

Akkustikkoppler FTZ 199,— 
Editor Assembler 189,— 

ASM-Handbuch deutsch 98,— 
TI 99/4A intern 38,— 

Freddy Disk 59,— 

The Mine Disk 55,— 

LOGO II 320 — 

Multiplan 320,— 


Diverse Spielmodule aus USA, von ATARI und von Texas 
Instruments 

Ständig über 100 verschiedene Artikel am Lager. Fordern Sie 
unsere Preisliste an. 
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SERIE 


l_:---*---- 

Assembler leicht 
gemacht 

Jedes Modul, welches beim TI 99/4A Maschinensprache 
ermöglicht, stellt uns ja einige Hilfsroutinen für die Assemblerprogramme 
zur Verfügung, auf die wir heute zum Teil näher eingehen wollen. 

Als erstes sollen die Routinen zum 
Beschreiben und Lesen des VDP- 
RAM’s erwähnt werden, also VSBW, 

VSBR, VMBW, VMBR und VTWR. 

Nehmen wir die letzte Routine zu¬ 
erst. Diese dient dazu, in ein be¬ 
stimmtes Register des Video-Prozes¬ 
sors einen Wert zu schreiben. In RO 
unseres Workspaces (Arbeitsberei¬ 
ches) muß dabei im höherwertigen 
Byte die Nummer des Registers, 
also z.B. >01 für Register 1 und im 
niederwertigen Byte der Wert, der 
geschrieben werden soll, also z.B. 

>E0 stehen. Zu beachten ist hier, 
daß auf die Speicherstelle >83D4 
immer eine Kopie des Wertes von 
VDP-Register 1 stehen muß. Das fol¬ 
gende Listing 1 zeigt, wie das ge¬ 
macht werden kann: 
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F nF 

1 ’BB' J, *.' 8 BR *Fue» 

A- = . 0 , f\M 

V3B" F i*!U 

'.'igpC?( je. p U 0 .- y 

-BAs :• c 

VBB* ESU 

'■2028 L- Fuer y 

-BAs i r 

* Byte srh.* 

eiben: 


L I 

R0, >01 9.0 


LT 

RJ,>4100 * >A1 

00 Fuer X-Basic 

BL UP 

e-VSBU 


* Byte k-se 

n: 


LT 

F 0 , > 0.1 90 


BL UP 

0VSBR 


* Io RI jetzt das gelesene 

Byte 


* Listing : 



REF 

VWTR * Fuer 

VWTR 

EQU 

>2020 * Fuer 


LI 

R0, >0J.E0 


BL UP 

0VWTR 


LT 

R0, N E000 


MOVB 

R0,0>S3D4 

* Oder 

"getri ckst" *. 


LT 

R0,>01E0 

WERT 

EQU, 

£-1 


BLWP 

0VWTR 


MOVB 

«WERT,0 >83D4 


Der Trick im zweiten Teil des 
Listings bezieht sich auf eine beson¬ 
dere Möglichkeit mancher TMS 
9900 Assembler. Das Dollarzeichen 
wird als Wert des augenblicklichen 
Standes des Programmzählers genom¬ 
men. Hier wird dem Label XYZ also 
die Adresse des Bytes, in dem >E0 
steht, zugeordnet. Ein Beispiel, wie 
VWTR benutzt wird, hatten wir ja 
schon in der letzten Ausgabe be¬ 
sprochen. 


ziehen sich also auf einzelne Bytes. 
Beiden gemeinsam ist, daß vor dem 
Aufruf RO unser Workspace die 
VDP-Adresse enthalten muß, auf die 
wir schreiben bzw. von der wir ein 
Byte lesen wollen. Im höherwertigen 
Byte von RI muß der Wert enthalten 
sein, den wir schreiben wollen, bzw. 
bei VSBR enthält das höherwertige 
Byte von RI. den Wert, den wir ge¬ 
lesen haben. Das Listing 2 zeigt 
nochmal die Routine aus der ersten 
Folge zum Darstellen eines A auf 
dem Bildschirm und danach lesen 
wir wieder den Inhalt der gleichen 
Speicherstelle. 


Die anderen Hilfsroutinen haben wir 
in den letzten Folgen auch schon 
verwendet. Dennoch wollen wir erst 
einmal die Abkürzungen erklären. 
Das V steht dabei für das VDP-RAM, 
S steht für Single, also Einzeln, M für 
Multiple, also mehrfach, B für Byte, 
W für Write (Schreiben) und R für 
Read, also lesen. VMBW steht also 
für mehrere Bytes in das. VDP-RAM 
schreiben. 

Die Routinen VSBW und VSBR be- 
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* Listing 3: 



* Fuer 

Assembler und Mini-Mem 


REF 

VMBW,VMBR 


TEXT 1 

TEXT 

’DAS IST EIN TEST’ 


LI 

R0, >00Ai 



L I 

RI,TEXT J 



L I 

R2 , >0.010 



BL NP 

PU MBU 


* Fuer 

X-Basic: 


UMBU 

EQU 

; 2024 


UMBR 

equ 

>202C 


TEXT 1 

BYTE 

>B4,>A5,>B3, 

> B4 


LT 

P0,>00AJ 



L T 

PI,TEXT 1 



L T 

R2,>0004 



B' UP 

RU MBU 


* Bild 

= c h i; rn ab-?pe i eher r 

' 


DEF 

USA' 'E. V 1.0 AD 



REF 

L'MBUjUMBR * 

Fuer Ass. u. MM. 

yj MBU 

EQU 

>20?4 * 

Fuer X-Basic 

VMBR 

EQU 

> ?02C * 

Fuer X-Basic 

MYWS 

BSS 

>20 * 

Uorkspa.ce reser-vi eren 

BUEFER 

BES 

>200 *• 

Speicher -fiter Bildschirm 

VSAVE 

LUPI 

MV US 



CLR 

R0 * 

Start VDP-RAM bei >0000 


LI 

RJ,BUFFER' 



ti 

R2,>0300 



BLUP 

0VMBR 


ENDE 

CLP 

4 



MOVB 

4,0>337C * 

SPL-Statusbyte 1oeschen 


LWPT 

>83E0 



B 

0 >0070 * 

Ruecksprung 

VI.ÜAD 

LUF'T 

MYUS 



CLR 

R0 



LT 

R 1 ,BUFFER 



L T 

R2,>0300 



BLUP 

DU MBU 



JM P 

FMPE 




REVUE 


DAS MAGAZIN 
FÜR FREUNDE 
DER KOMPATIBLEN 


DM 5,80/ÖS 49/SFR 5,80 



IM TEST: 

Philips 8020 
Spectravideo 728 
Sony 

Creative Graphics 

Yashica 64 

Philips Printer 0020 

Ackobase 

Ackotext 

Sony Plotter C 41 

Quickdisk QDM/01 

LISTINGS: 

32 Seiten 
MSX-Programme 

MÄRKTÜBER- 

SICHT: 

Das komplette 
MSX-Software- 
Angebot! 
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* Listing 4: 



REF 

KSCAN * Fuer Ass. u. MM 

KSCAN 

E0U 

>20IC * Euer X-Basic 

* Warten auf 

ged r«.leckt e 

Taste: 


CLR 

R4 



MOVB 

F4 , © >8374 4 

T ast atur rnodus 


MOVB 

R4,0>S37C * 

GPL-Statas loeschen 

TASTE 

BLWP 

©KSCAN 



MOVB 

©>837C,R4 



JEQ 

TASTE 


* Warten au-f 

Leertaste 


SPACE 

DATA 

>2000 



CLR 

P4 



MOVB 

P4,0>8374 * 

T as tatur rnodus 

TASTE 

BLWP 

0KSCAN 



MOVB 

0>837C,R4 



COC 

0SPACE,R4 * 

Bit 2 prue-fen 


JME 

TASTE 



MOVB 

@ S '8375,R4 



C 

R4,©SPACE 



JME 

TASTE 



>8377 gegebenenfalls die Werte für 
die Joysticks. Wenn eine neue Taste 
gedrückt wurde, ist da^Bit 2 im GPL- 
Statusbyte (zu finden auf >837C) 
gesetzt, andernfalls ist das Bit (nicht 
das ganze Byte!) 0. Das Listing 4 
zeigt zwei Anwendungen: Einmal 
wird nur gewartet, bis irgendeine 
Taste gedrückt wird und zum ande¬ 
ren wird solange gewartet, bis die 
Leertaste gedrückt wird. 

Die letzte der Hilfsroutinen für heu¬ 
te soll XMLLNK sein. Diese erlaubt 
uns, auf einfache Art und Weise auf 
Routinen des Betriebssystem zuzu¬ 
greifen. Je nachdem welche Routi¬ 
ne wir benutzen wollen, müssen wir 
entsprechende Speicherbereiche vor¬ 
bereiten. Wir wollen hier am Beispiel 
von CIF (Convert Integer — Floiting 
Point, also der Umwandlung einer 
Integer-Zahl in eine Fließkomma¬ 
zahl) den Gebrauch von XMLLNK 
zeigen (Listing 5). Dabei wird ein 
ganzes Wort, d.h. zwei Bytes in die 
im TI 99/4A benutzte Darstellung 
der Fließkomma-Zahlen umge¬ 
wandelt; 


* 

Listing 5 


* 

Fuer 

Assembler und Mini-Memory: 



REF 

XMLLNK 



LI 

RI, >0001 Dieser Wert soll 



MOV 

R1,0>834A * umgewandelt werden 



BLWP 

©XMLLNK 



DATA 

>2300 * Fuer Mini-Mem >7200 




* Fehler im Handbuch 

* 

Fuer 

Extended Basic: 

XMLLNK 

EQU 

>2018 



LI 

RI, >0001 ■£ Dieser Wert soll 



MOV 

R1,©>834A * umgewandelt werden 



BLWP 

©XMLLNK 



DATA 

>0020 


Auch die Routinen VMBW und 
VMBR hatten wir schon angespro¬ 
chen, so daß hier nur noch einmal 
kurz darauf eingegangen werden 
muß. Bei beiden Routinen muß 
R0 wieder die VDP-Adresse enthal¬ 
ten, RI enthält einen Zeiger auf 
den Beginn des normalen RAM’s, 
von wo aus geschrieben bzw. wo¬ 
hin gelesen werden soll und R2 ent- 
Tiält die Anzahl der Bytes. Das 
Listing 3 zeigt die Anwendung zum 
Schreiben eines Textes jeweils Für 
das Assembler bzw. Mini-Memory 
Modul, wenn die Routine aus 
dem Basic bzw. Extended Basic 
aufgerufen wird und ein Beispiel 
dafür, wie der komplette Bild¬ 
schirm in das RAM gespeichert 
wird. 

Anzumerken zu VMBW und VMBR 
bleibt noch, daß niemals in R2 Null 
stehen darf, sonst hängt sich der 
Rechner bei einigen der Module auf. 
Hier ist wohl Texas Instruments eine 
kleine „Ungenauigkeit“ unterlaufen. 
Normalerweise müßte dieser „Feh¬ 
ler“ wohl in der Routine berücksich¬ 
tigt werden. 

Kommen wir nun zu einer weiteren 
wichtigen Hilfsroutine: KSCAN. 
Diese dient der Tastaturabfrage. 
Benötigt werden hier keine besonde¬ 
ren Vorbereitungen in den Registern 
unserer Workspace, sondern es müs¬ 
sen einige Speicherstellen gesetzt 
werden. Auf >8374 müssen wir ein 


Byte mit dem Wert des Tastaturmo¬ 
dus belegen. Dabei gelten die glei¬ 
chen Werte wie beim Basic-Befehl 
CALL JCEY. Bei dem Wert >01 
wird also die linke Tastatur mit Joy¬ 
stick und bei >02 die rechte abge¬ 
fragt. Die anderen Werte,> 00, 

>03, >04 und >05 sind identisch 
zum CALL KEY. Nach der Tastatur¬ 
abfrage wird auf >8375 der ASCII- 
Wert der gedrückten Ta$te (auch hier 
gelten die gleichen Werte wie bei 
CALL KEY) und auf >8376 und 


Anzumerken zu XMLLNK bleibt 
noch, daß eine Veröffentlichung in 
einer anderen Zeitschrift hier zu et¬ 
was Unsicherheit geführt hat. Auch 
das XMLLNK des Extended Basic 
Moduls arbeitet einwandfrei, nur 
müssen andere DATA-Werte einge¬ 
setzt werden, wie es das Beispiel 
zeigt. Die Werte, wie auch sonstige 
Equates Für das Extended Basic- 
Modul, Finden sich in der Anleitung 
zum Editor-Assembler ab Seite 415. 

Heiner Martin 
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SERVICE 


TI 99/4A BASIC TOKEN 

HEX DEZ Bezeichnung HEX DEZ Bezeichnung HEX DEZ Bezeichnung 


J 28 

129 

130 

131 

132 

133 
'134 

135 

136 

137 

138 

139 
1 40 
141 
1 42 

143 

144 
3 45 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 
16.0 
161 
1.62 

163 

164 

165 

166 

167 

168 

169 

170 


ELSE 


IF 

GO 

GOTO 

GOSIJB 

RETURN 

DEF 

DIN 

END 

FOR 

LET 

BREAK 

UNBREAK 

TPACE 

UNTRACE 

INPUT 

DATA 

RESTORE 

RANDOMIZE 

NEXT 

READ 

STOP 

DELETE 

REM 

ON 

PRINT 
CALL 
OPTION 
OPEN 
CLOSE ; 

SUB 

DISPLAY 

IMAGE 

ACCEPT 

ERROR 

WARNING 

SUBEXIT 

SUBEND 

RUN 

LINPUT 


171 

172 

173 

174 

175 

176 
1 77 
J 78 
3 79 
1 80 
183 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 


THEN 

TO 

STEP 


UND-ZEI 


String 

String 

Zei lenni 

EOF 

ABS 

ÄTN 

COS 

EXP 

INT 

LOG 

SGN 

SIN 

SQR 

TAN 


D5 

D6 

D7 

D8 

D9 

DA 

DB 

DC 

DD 

DE 

DF 

E0 

213 

214 

215 

216 

217 

218 

23 9 
220 
223 
222 

223 

224 

BASIC-TOKEN DES 

CHR$ TI 99 / 4A 

RND 

SEG$ In der letzten Ausgabe 

POS fehlte beim Bericht über 

m*i die Charakterkunde des 

jhl . TI 9g i 4A die vollständige 

Tabelle aller Token des 
ASC TI 99/4A. Nebenstehend 

PI nun die vollständige Ta- 

REC belle. Die nicht bezeich- 

neten Werte sind bisher 
noch nicht vergeben. 

El 

225 

RPTS 

E2 

226 


E3 

227 


E4 

228 


E5 

229 


E6 

230 


E7 

231 


E8 

232 

NUMERIC 

E9 

233 

DIGIT 

EA 

234 

UALPHA 

EB 

235 

SIZE 

EC 

236 

ALL. 

ED 

237 

US ING 

EE 

238 

BEEP 

EF 

239 

ERASE 

F0 

240 

AT 

Fl 

241 

BASE 

F2 

242 


F3 

243 

VARIABLE 

F4 

244 

RELATIVE 

F5 

245 

INTERNAL 

F6 

246 

SEQUENTIAL 

F7 

247 

OUTPUT 

F8 

248 

UPDATE 

F9 

249 

APPEND 

FA 

250 

FIXED 

FB 

251 

PERMANENT 

FC 

252 

TAB 

FD 

253 

# (FILES) 

FE 

254 

VALIDATE 

FF 

255 



BASICZEILE: Als Beispiel CALL LOAD("DSK1.DEBUGXB"): 

18 9D .04 4C 4F 41 44 B7 C7 

LAENGE CALL LAENGE LOAD ( 


0C 44 53 4D 

LAENGE DSK 


31 2E 44 45 42 55 47 58 42 

1 - DEBUGXB 


Der Pointer in der Zeilenliste zeigt au-f 9D, den ersten Befehl. 
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TIPS & TRICKS 


WEITERE TESTMODI 
FÜR MODULE _ 

Für folgende Module ha¬ 
be ich weitere Testmodi 
gefunden: 

1. Munch Man: Titelbild 
anwählen, dann Shift ge¬ 
drückt halten und die 
Tasten 8 - 3 - 8 in dieser 
Reihenfolge drücken. Nun 
erscheinen folgende Fra¬ 
gen: RND 0—2, SCN 
(0-19) und MM 1-9. 

2. Moonmine: Auch hier 
das Titelbild anwählen 
und ebenfalls bei gedrück¬ 
ter Shift-Taste die Zahlen 


8-3 — 8 drücken. 

Taste drücken. Anwählen 
kann man nun nichts 
mehr, aber das Spiel star¬ 
tet mit einem sehr hohen 
Vorrat an Shield — 

Photon - und Warp sowie 
einer sehr hohen Spiel¬ 
stufe. Es beginnt ein sofor¬ 
tiger Beschuß der Star¬ 
treck mit allen Schikanen. 
5. Chisholm Trail: Wenn 
die Abfrage nach dem Le¬ 
vel erscheint, Shift ge¬ 
drückt halten und hinter¬ 
einander die Tasten 8 — 

3 — 8 drücken. Es er¬ 
scheint nun die Abfrage 


CALL LOAD 



3. Munchmobile: Titelbild 
anwählen, Shift und 8 
drücken. 

4. Star Treck: Titelbild 
anwählen, Shift gedrückt 
halten und die Tasten 
8-3-8 hintereinander 
drücken. Jetzt Shift los¬ 
lassen und erneut eine 


in welchen Tag man ge¬ 
setzt werden möchte (zu¬ 
erst die Einerzahl, dann 
die Zehnerzahl), danach 
die Anzahl der gewünsch¬ 
ten Leben eingeben (Ihre 
Angabe mal 4 ist dann 
Ihre „Lebenszahl“). 

Carlos Jarque 


Buchtips 


Das Mailboxtelefon¬ 
buch ist eine Neuaufla¬ 
ge des schon im ersten 
Halbjahr erschienenen 
Telefonbuches. 

Das Telefonbuch ent¬ 
hält die bis dato be-. 
kannten MB-Telefon- 
nummern von Deutsch¬ 
land, Amerika, Süd- 
Afrika und Australien. 
Die Mailboxen sind in 
alphabetischer Reihen¬ 
folge nach Städten 
aufge führt. 

Das Buch ist wie folgt 
aufgebaut: 

STADT 

Rufnummer/DFÜ 

Name 

Ort 

Betr. Zeit 

Paßwort 

System 


-Sys.Op. 
priv. Tel .-Nr. 

Eröff. Modus 
Bemerkungen 
Angebot von 
Dahinter verbirgt sich, 
was jeder DFÜ-Benut- 
zer über die Mailbox 
wissen sollte. Als 
Nachteil finde ich, daß 
das Buch kein Inhalts¬ 
verzeichnis hat. Somit 

Buchtitel: 

Warneke's Mailboxteie- 
fonbuch 

Herausgeber/Autor: 

Claus warneke 


wird die Suche nach ei¬ 
ner bestimmten Mail¬ 
box eine zeitraubende 
Angelegenheit. 

M. Miosga 


Die in der Rubrik „Tips 
& Tricks“ in der TI- 
REVUE genannten CALL 
LOADs arbeiten nicht 
hundertprozentig. 

1. ) Nach dem Befehl 
CALL LOAD (-31965,19) 
soll der TI 99/4A angeb¬ 
lich keine Befehle mehr 
annehmen. Wenn man al¬ 
lerdings einen SYNTAX 
ERROR mit einer Leer¬ 
stelle, wie z.B.: -a a- ein¬ 
gibt, erscheint auf dem 
Bildschirm zunächst ein 
SYNTAX ERROR. Von 
nun aber kann man wie¬ 
der, wie gewohnt, seine 
Befehle eingeben. Auch 
die Befehle BYE und 
NEW, die ja angeblich 
auch nicht mehr funktio¬ 
nieren sollen, funktionie¬ 
ren wieder. 

2. ) Ähnliches passiert bei 
CALL LOAD (-31964, 
20) auch. Hierbei soll 
der Computer angeblich 
ein NEW ausführen, wenn 
man das Programm edi¬ 
tieren möchte. Wenn man 


aber zuerst in einer Zeile, 
in der vorher nichts stand, 
z.B.: 23456 PRINT 
“HALLO“ eingibt, dann 
erscheint sofort das 
HALLO auf dem Bild¬ 
schirm. Auch steht dann 
(in dem angeführten Bei¬ 
spiel) in der Zeile 23456 
immer noch „nichts“. 
Jetzt kann man das Pro-: 
gramm wieder nach 
Belieben ändern. (Ein 
einfaches CALL, LOAD 
(-31965,0) tut es übri¬ 
gens auch.) 

P.S.: Benutzt man den 
unter Punkt 2 genannten 
LOAD vor einem END, 
bleiben, falls vorher defi¬ 
niert, auch Sonderzeichen 
(ASCII-CODE 32-143) 
erhalten. Sogar SPRITES 
und COLOR' AnWeisun¬ 
gen werden nicht zurück¬ 
gesetzt. So kann man 
sich also auch Sprites im 
Betriebssystem schaffen. 
Allerdings darf jetzt kei¬ 
ne Zeile editiert werden. 
Auch SYNTAX ERRORs 
sollte man vermeiden. 

Klaus J. Höltgen 


Was die 
Kassette alles 
kann 



Die vielfältigen Dateiope¬ 
rationen des TI 99IAA. 
sind für den Anwender 
sinnvoller BASIC-Pro- 
gramme nicht wegzuden¬ 
ken! Erst sie ermöglichen 
die Benutzung externer 
Geräte wie Kassettenre¬ 
korder, Drucker, Disket¬ 
tenlaufwerke u.ä. Besitzer 


von Speichererweiterung 
und Diskettenlaufwerk 
können alle Möglichkeiten 
der Dateioperationen voll 
auskosten. 

-So hat aber m.W. noch 
kein veröffentlichtes Pro¬ 
gramm folgende Fähigkeit 
der Dateioperationen in 
BASIC berücksichtigt: 
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TIPS & TRICKS 


Im BASIC ist es erlaubt, 
für den Kassettenrekorder 
gleichzeitig mehrere Da¬ 
teien zu öffnen und zu 
verwalten! 

Dabei müssen die Dateien 
selbstverständlich für den 
Rekorder spezifiziert sein 
und dürfen sich nicht wi¬ 
dersinnig konkurrieren. 

Die folgenden Ausführun¬ 
gen betreffen damit vor 
allem Anwender, die nur 
einen Kassettenrekorder 
als Massenspeicher und 
vielleicht einen Drucker 
besitzen. Die Anwendungs¬ 
möglichkeiten reichen oh¬ 
ne Zweifel über die vorge¬ 
stellten Beispiele hinaus. 


1 DATEIEN UND 
KASSETTE 


Über die „Cassette als 
Datenspeicher“ ist bereits 


in TI-REVUE 6/85 von 
Dr. H. Greiner ein Artikel 
erschienen, der hier nun 
ergänzt werden soll: 

1. Im Open-Modus sind 
für Kassette nur INPUT 
und OUTPUT zulässig. 
Dennoch lassen sich die 
für Diskette vorgesehe¬ 
nen Modi APPEND und 
UPDATE annähernd 
simulieren. 

2. Als Satztyp kennen die 
CS-Dateien nur FIXED 
(64,128,192), wobei 
die jeweilige Satzlänge 
immer für die gesamte 
Datei gilt. Doch zumin¬ 
dest für OUTPUT-Da- 
teien ist eine annähern¬ 
de Simulation im Satz¬ 
typ VARIABLE mög¬ 
lich. 

Um die Algorithmen vor¬ 
zustellen, sind vier Listings 
angefügt, die sehr ausführ¬ 
lich gestaltet wurden. Sie 
lassen sich leicht verein- 


100 ! TEST-DATEI GENERIEREN 

110 ! 

120 ! by Reiner Makohl 
130 I 

140 OPEN #1:"CSl",OUTPUT,INT 

ERNAL,FIXED 

150 DATENANZAHL=5 

160 PRINT #1:DATENANZAHL 

170 FOR 1=1 TO DATENANZAHL 

180 A$=*DIES IST DATENSATZ N 

UMMER "&STR$(I) 

190 PRINT #1:A$ 

200 NEXT I 
210 CLOSE #1 
220 END 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 


****** ******* ********* 


APPEND-MODUS CSl 

(c)1985 by 
Reiner Makohl 
Tirolerstr .6 
6090 Ruesselsheim 


********************** 


CALL 

OPEN 


CLEAR 
#1 :"CS1 


INPUT ,INT 


ERNAL,FIXED 


220 INPUT #1:ALTEDATENANZAHL 
230 PRINT : :"* PRESS CASSET 


TE STOP CSl THEN PRESS E 
NTER": : 

240 CALL KEY<0,K ,S) 

250 IF KO 13 THEN 240 
260 PRINT : :"ES SIND BEREIT 
S" :ALTEDATENANZAHL;"DATENSAE 
TZE GESPEICHERT": : 

270 INPUT "WIEVIELE DATENSAE 
TZE SOLLEN ANGEFUEGT WERDEN? 
" :X 

280 IF X<1 THEN 270 

290 NEUEDATENANZAHL=ALTEDATE 

NANZAHL+X 

300 OPEN #2:"CSl".OUTPUT,INT 
ERNAL,FIXED 

310 PRINT #2:NEUEDATENANZAHL 
320 PRINT : :"* PRESS CASSET 
TE STOP CSl THEN PRESS E 
NTER": : 

330 CALL KEY<0 .K ,S) 

340 IF KO 13 THEN 330 
350 PR IN I "* PRESS CASSETTE . 
PLAY CSl THEN PRESS ENTE 
R" : : 

360 CALL KEY(0,K,S) 

370 IF KO 13 THEN 360 
380 PRINT "* READING": : 

390 FOR 1=1 TO ALTEDATENANZA 
HL 

400 INPUT #1:A$ 

410 PRINT A$: : 

420 NEXT I 

*430 PRINT "* PRESS CASSETTE 
STOP CSl THEN PRESS ENTE 
R": : 

440 CALL KEY(0,K,S) 

450 IF KO 13 THEN 440 
460 PRINT "* PRESS CASSETTE 
RECORD^ CSl THEN PRESS ENTE 
R": : 

470 CALL KEY(0,K,S) 

480 IF KO 13 THEN 470 
490 PRINT "* RECORDING"; : 
500 FOR 1=1 TO X 
510 A$="DIES IST DATENSATZ N 
UMMER "&STR3CALTEDATENANZAHL 
+ 1 ) 

520 PRINT A$: : 

530 PRINT #2:A$ 

540 NEXT I 
550 CLOSE #1 
560 CLOSE #2 
570 END 
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fachen und gegebenenfalls 
Anwenderprogrammen an¬ 
passen. 


1.1. APPEND-MODUS 
FÜR CS1 


Folgendes Problem sei ge¬ 
geben: Eine existierende 
Adress-Datei auf Band 
soll ergänzt werden. Da¬ 
bei genügt es, die neuen 
Datensätze an das Ende 
der Datei anzufügen. 
Üblicherweise wurde das 
Problem bisher so gelöst: 
Datei einiesen, neue Daten¬ 
sätze anfügen, gesamte Da¬ 
tei neu auf Band speichern. 
Der APPEND-Modus, für 
Kassettenbetrieb nicht ge¬ 
eignet, erlaubt das Anfü¬ 
gen von Daten am Ende 
einer existierenden Datei, 
wobei die bereits vorhan¬ 
denen Datensätze nicht be¬ 


arbeitet werden können. 
Dies genau würde Für die 
Lösung des Problems aus¬ 
reichen! 

Das Programm APPEND- 
MODUS CS1 simuliert 
den tatsächlichen APPEND- 
Modus sehr gut. Um die 
Arbeitsweise des Pro¬ 
gramms zu testen, muß 
erst eine Beispiel-Datei 
mit dem Programm 
“TEST-DATEI GENERIE¬ 
REN“ erstellt werden. 
Bedingung ist, daß im er¬ 
sten Datensatz die Zahl 
der folgenden Datensätze 
gespeichert ist. Die Test- 
Datei kann nun vom Pro¬ 
gramm “APPEND- 
MODUS CS1“ ergänzt wer¬ 
den. Beachten Sie die 
Bildschirmanweisungen 
für den Kassettenbetrieb 
genau. 

Zwei Dateien gleichzeitig 
für das selbe Gerät zu öff¬ 
nen, kostet zwar Speicher¬ 


platz, aber der Vorteil des 
Anwenders ist offensicht¬ 
lich: enorme Zeiterspar¬ 
nis gegenüber der herkömm¬ 
lichen Methode, es kön¬ 
nen problemlos Kassetten- 
Dateien verwaltet werden, 
die den freien Platz im 
Maschinenspeicher über¬ 
füllen würden. 


1.2 UPDATE-MODUS 
CS1 _ 

Folgendes Problem sei ge¬ 
geben: In einer existieren¬ 
den Adress-Datei ist ein 
Datensatz fehlerhaft und 
soll geändert werden. 
Bisher wurde dieses Pro¬ 
blem so gelöst: Datei 
komplett einiesen, den 
fehlerhaften Datensatzaus- 
tauschen und die gesamte 
Datei neu auf Band auf¬ 
zeichnen. 

Im echten UPDATE-Mo¬ 


dus kann eine Datei gleich¬ 
zeitig geleserrund ge¬ 
schrieben werden, z.B. 
einen Datensatz mitten 
aus der Disketten-Datei 
lesen, ihn abändem und 
an die selbe Position 
schreiben. 

Das Programm UPDATE¬ 
MODUS CS1 simuliert 
den echten UPDATE- 
Modus unvollkommen, 
aber ausreichend. Auch 
Für dieses Programm wird 
die TEST-DATEI benötigt. 
Die Position des fehlerhaf¬ 
ten Datensatzes muß be¬ 
kannt sein. 

Auch bei diesem Beispiel 
ist der Vorteil überzeugend. 
Baut man in dieses Bei¬ 
spiel noch die RESTORE- 
Funktion ein (RESTORE 
#X), die auch für Kasset¬ 
te möglich ist, kann man 
beliebig oft jeden Daten¬ 
satz lesen oder überschrei¬ 
ben. 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 

200 CALL CLEAR 

210 OPEN #1 : "CS1" ,'INPUT , INT 
ERNAL,F1XED 

220 INPUT #1:ALTEDATENANZAHL 
230 PRINT : :"¥ PRESS CASSET 
TE STOP CS1 THEN PRESS E 
NTER": : 

240 CALL KEY(0,K,S) 

250 IF KO 13 THEN 240 
260 PRINT : :"ES SIND":ALTED 
ATENANZAHL;"DATENSAETZE GESP 
EICHERT": : 

270 INPUT-"WELCHER DATENSATZ 
SOLL AUS- GETAUSCHT WERDEN? 
* :X 

280 IF X<1 OR X>ALTEDATENANZ 
AHL THEN 270 

290 OPEN #2:"CS1".OUTPUT,INT 
ERNAL,FIXED 

300 PRINT : PRESS CASSET 

TE STOP CS1 THEN PRESS E 


****¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 
¥ UPDATE-MODUS CS1 ¥ 


¥ - • - « 

¥ (c)1985 by ¥ 
¥ Reiner Makohl ¥ 
¥ Tirolerstr.6 ¥ 


¥ 6090 Ruesselsheim ¥ 
**¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 


NTER": 1 

310 CALL KEYC0,K,S) 

320 IF KO 13 THEN 310- 
330 PRINT "¥ PRESS CASSETTE 
PLAY CS1 THEN PRESS ENTE 
R" : : 

340 CALL KEY(0,K,S) 

350 IF KO 13 THEN 340 
360 PRINT "* READING": : 

370 INPUT #1:ALTEDATENANZAHL 
380 FOR 1=1 TO X-l 
390 INPUT #1:A$ 

400 PRINT A$: : 

410 NEXT I 

420 PRINT "* PRESS CASSETTE 
STOP CS1 THEN PRESS ENTE 

R*: : 

430 CALL KEY(0,K,S) 

440 IF KO 13 THEN 430 
450 PRINT "¥ PRESS CASSETTE 
RECORD CS1 THEN PRESS ENTE 
R": : 

460 CALL KEYC0.K,S) 

470 IF KO 13 THEN 460 
480 PRINT "¥ RECORDING": : 
490 A$="DIES IST DER NEUE DA 
TENSATZ "&STR$(X) 

500 PRINT #2 rA$ 

510 CLOSE #1 
520 CLOSE #2 
530 END 
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100 ! ********************** 
110 ! * F0RMAT-M1X CS1 * 

120 ! *---* 

130 ! * (01985 bv * 

140 ! * Reiner Makohl * 

170 ! ********************** 
200 ! DATEIEN MIT UNTER- 
210 ! SCH1EDLICHEM FORMAT 
220 ! ÜEFFNEN 

240 OPEN #1:"CS1".OUTPUT,INT 
ERNAL,FIXED 64 

250 PRINT : PRESS CASSET 

TE STOP CS1 THEN PRESS E 
NTER" : : 

260 CALL KEY(0 ,K ,S) 

270 IF K<>13 THEN 260 

280 OPEN #2:"CS1*.OUTPUT,INT 

ERNAL,FIXED 128 

290 PRINT : :"* PRESS CASSET 

TE STOP CS1 THEN PRESS E 

NTER“ : : 

300 CALL KEY(0,K,S) 

310 IF K<>13 THEN 300 
320 OPEN #3 :*CSr\ OUTPUT,INT 
ERNAL,FIXED 192 
330 ! 

340 ! DATENSAETZE SCHREIBEN 
350 ! 

360 PRINT : :"* RECORDING*: 

370 FÜR 1=1 TO 3 
380 PRINT #1:"DIESE DATEI WI 
RD FUER DATENSAETZE BIS ZU * 
&STR$(I*64)&" ZEICHEN GENUTZ 
T! " 

390 NEXT I 
400 CLOSE #1 
410 CLOSE #2 
420 CLOSE #3 

430 ! 

440 ! WIEDEREINLESEN ALLER 
450 ! DATENSAETZE IM FORMAT 
460 ! FIXED 192 

470 ! 

480 OPEN #1:"CS1",INPUT ,INT 
ERNAL,FIXED 192 
490 PRINT : :"* READING" : : 
500 FOR 1=1 TO 3 ' 

510 INPUT #1:A$ 

520 PRINT A$: : 

530 NEXT I 
540 CLOSE #1 
550 END 


1.3 FORMAT MIX CS1 


Sicherlich ist es grundsätz¬ 
lich vorteilhaft, CS-Da- 
teien im Format FIXED 
192 zu öffnen. Aber hin 
und wieder gibt es Situa¬ 
tionen, in denen dieses 
Format nicht genutzt 
wird. Dann weicht man 
eben auf FIXED 128 
oder FIXED 64 aus. 

Das Programm FORMAT¬ 
MIX CS1 zeigt nun, daß 
die drei möglichen For¬ 
mate innerhalb der selben 
Datei angewendet werden 
können, was oft von Vor¬ 
teil ist. Kommen für eine 
CS-OUTPUT-Datei unter¬ 
schiedlich lange Daten¬ 
sätze vor, ist diese Metho¬ 
de für den Ladevorgang 
zeitsparend und daher 
empfehlenswert. 

Zunächst werden drei Da¬ 
teien in den Formaten 
FIXED 64, 128 und 192 
geöffnet. Die Datensätze 
werden entsprechend ihrer 
Länge von den einzelnen 
Dateien auf Band geschrie¬ 
ben. Um die Datensätze 
wieder einzulesen, genügt 
eine INPUT-Datei im For¬ 
mat FIXED 192. 

Wie man sehen wird, 
kommt es zu keiner Feh¬ 
lermeldung. Eine INPUT- 
Datei, die im Format 192 
geöffnet wurde, liest pro¬ 
blemlos Dateien, die in 
den Formaten 128 oder 
64 geschrieben wurden, 
weil der Platz im Puffer¬ 
speicher ausreicht. Umge¬ 
kehrt ist es nicht möglich. 
Das Band wird übrigens 
automatisch richtig am 
Ende eines Datensatzes ge¬ 
stoppt, weil jeder Daten¬ 
satz eine Information 
über den FIXED-Wert' 
enthält. 

Diese Technik ist nicht im 
Zusammenhang mit Da¬ 
teien möglich, die nach 
den Algorithmen des Pro¬ 
gramms UPDATE-MO¬ 
DUS CS1 bearbeitet wer¬ 
den sollen. 


1.4 RESTORE UND 
KASSETTE 


Der RESTORE-Befehl, 
wie er Für programminter¬ 


ne DATA-Listen genutzt 
wird, ist auch bei CS-Da- 
teien möglich, denn auch 
sie sind nichts anderes als 
DATA-Listen. Manch ein 
Programm würde einfa- 3 * 
eher oder komfortabler, 
hätte sich der Programmie¬ 
rer auf diesen Befehl be¬ 
sonnen. 

Die Anwendung ist ein¬ 
fach: öffnet man eine CS- 
Datei, kann man sie jeder¬ 
zeit durch RESTORE#X 
(X=Nummer der Datei) 
an den Anfang zurückset¬ 
zen. Bei CS-Dateien er¬ 
scheinen dazu Anweisun¬ 
gen auf dem Bildschirm. 
Anwendungsmöglichkei- 
ten: Im Programm UP¬ 
DATE-MODUS CS1 
könnten die RESTORE- 
Befehle bewirken, daß 
man jeden Datensatz be¬ 
liebig oft lesen oder 
überschreiben kann. Bei 
auftretenden Lesefehlern 
kann in Zusammenhang 
mit dem ON ERROR- 
Befehl der Lesevorgang 
wiederholt werden, ohne 
die Dateien schließen zu 
müssen, u.a. 


2 DATEIEN UND 
DRUCKER 


Auch der Drucker läßt 
sich gleichzeitig von meh¬ 
reren Dateien verwalten. 
Ob das sinnvoll ist, liegt 
letztlich an der Entschei¬ 
dung des Programmierers. 
Folgende Anwendungen 
wären denkbar: 

Eine Papierseite soll mit 
Text, Grafik und Tabellen 
bedruckt werden. Für 
Texte ist das Format 
VARIABLE (80 bis 255) 
sinnvoll, für Grafiken 
braucht man meist 8-Bit- 
Übertragung (.DA=8) und 
abgeschalteten Zeilenvor¬ 
schub (.CR), für Tabellen 
ist manchmal das Format 
FIXED brauchbar. 

Nun kann man für jede 
Datenart eine eigene Da¬ 
tei eröffnen, um die Da¬ 
ten artgerecht zu übertra¬ 
gen. Dadurch könnten sich 
umständliche Berechnun¬ 
gen, Formatierungen und 
Steuercode-Anwendun¬ 
gen erübrigen. 

Reiner Makohl 
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SOFTWARE-TEST 


Wenn 007 am Galgen 




007-ADVENTURE 


Nach den diversen James 
Bond Filmen nun endlich 
der Superagent auch auf 
dem TI. Im Titelbild er¬ 
scheint der Held mit der 
unvermeidbaren Gespie¬ 
lin im Arm und es ertönt 
Beethovens 9. Danach 
wird eine gar schaurige 
Geschichte von'einem Pro¬ 
fessor Xenuis erzählt, der 
die Weltherrschaft an¬ 
strebt. Um seinen Drohun¬ 
gen Nachdruck zu verlei¬ 
hen, will er innerhalb von 
150 Stunden England im 
Meer versinken lassen. 


Das soll 007 natürlich 
verhindern! Eine erste 
Spur führt ihn nach Venon 
Wood, wo die Todesma¬ 
schine angeblich stehen 
soll. Bevor er das Gerät 
allerdings findet, muß er 
jedoch einige aufregende 
und gruselige Situationen 
überstehen. Irgendwann 
hilft ihm allerdings sein 
texanischer Freund TI 99/ 
4A weiter. Die Grafik in 
diesem Adeventure kann 
man nur loben. Wieder 
einmal zeigt sich die De¬ 
tailfreudigkeit der Männer 
von Powersoft. Auch der 
Aufbau der Bildschirme 
geht erstaunlich schnell 
von statten. Der Reiz die¬ 


ses Adeventures wird 
noch dadurch erhöht, daß 
sich diverse Aufgaben bei 
jeder Runde verändern. 

So wird sehr gut verhin¬ 
dert, daß man den Weg aus¬ 
wendig lernt und das Spiel 
schnell langweilig wird. 

Zur Motivation trägt auch 
bei, daß ein Abenteuer 
durch die knapp bemesse¬ 
ne Zeit nicht zu langatmig 
wird. Mehr sollte hier 
nicht verraten werden, da 
sonst zu sehr auf die Lö¬ 
sung hingedeutet würde. 
Man kann 007 mit ruhi¬ 
gem Gewissen jedem emp¬ 
fehlen, der Spaß an Ad- 
ventures hat, oder der 
diese Spiele einmal ken¬ 


nenlernen will. Ausgekoch 
ten Adventure-Profis wird 
dieses Spiel jedoch nicht 
sehr viel bringen, da die 
Möglichkeiten gegenüber 
Scott Adams o.ä. Adven- 
tures doch sehr viel gerin¬ 
ger sind. 

Zum Schluß sei noch be¬ 
merkt, daß sich die Fa. 
Powersoft wirklich ein¬ 
mal die Anschaffung eines 
Dudens überlegen sollte. 
Die manchmal erschrek- 
kenden Rechtschreibfeh¬ 
ler in der Anleitung sind 
nun wirklich nicht nötig. 
Spiel idee: xxxx 

Grafik: xxxx 

Motivation: xxxx 

Gesamturteil: xxxx 
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SOFTWARE-TEST 


hängt 


DAS GALGENSPIEL 


Wer kennt es nicht aus 
langweiligen Schulstun¬ 
den, das Spiel „Hangman“. 
Ein Spieler denkt sich ein 
Wort aus und der Mitspie¬ 
ler muß es dann erraten. 
Hierbei nennt er einen 
Buchstaben, der in dem 
gesuchten Wort enthalten 
sein könnte. Hat er richtig 
getippt, setzt der Spielfüh¬ 
rer den Buchstaben an die 
richtige Stelle oder auch 
Stellen des Wortes, wel¬ 
ches bis jetzt seine Länge 
nur durch Punkte anzeig¬ 
te. 

Für einen falsch gerate¬ 
nen Buchstaben zeichnet 
der Spielführer einen 
Strich neben das gesuchte 
Wort. Häufen sich die 
Fehlversuche, entsteht 
langsam ein Galgen und 
der Mitspieler sieht sich 
als Strichmännchen dar¬ 
an baumeln. 

Ist der letzte Strich des 
Galgens gezogen bevor 
das gesuchte Wort vollstän¬ 
dig erraten wurde, gilt 
das Spiel als verloren. 
Michael Kothe schrieb 
für Euch jetzt eine Version 
für den TI 99, der den 
Spielführer ersetzt und 
Euch auf dem Bildschirm 
ein Wort vorgibt, das es 
zu erraten gilt: 

Ganz so brutal ist er da¬ 
bei nicht vorgegangen. 

Der TI zeichnet bei Fehl¬ 
versuchen keinen Galgen, 
an dem Ihr Euer Leben 
aushauchen müßt. 

Er merkt sich aber Eure 
Fehlversuche, zeigt sie 
ständig am Bildschirm an 
und ermittelt am Schluß 
des Spiels den Prozent¬ 
satz Eurer Nieten. 

Damit Ihr Euch die be¬ 
reits ausprobierten Buch¬ 
staben nicht aufzuschrei¬ 
ben braucht, gibt der TI 
sie in der untersten Bild¬ 
schirmzeile aus. Doppel¬ 
te Fehlversuche könnt Ihr 
Euch dadurch ersparen. 
Wißt Ihr vor lauter Ver¬ 


zweiflung überhaupt nicht 
mehr weiter, zeigt Euch 
der TI 99 bei Eingabe des 
Wörtchens “HELP“ das 
gesuchte Wort, nicht ohne 
dabei einen leichten Tadel 
los zu werden. 

Die DATA-Zeilen dieses 
Programms enthalten eine 
reichliche Auswahl von 
Begriffen, die der Spiel¬ 
führer (TI 99) durch sei¬ 
nen Zufallsgenerator aus¬ 
wählt. 

Sollten nach einiger Zeit 
alle Begriffe schon be¬ 
kannt sein, ist es kein Pro¬ 
blem, die DATA-Zeilen 
mit neuen Begriffen zu 
füllen, so daß dieses Spiel 
für einsame Stunden oder 
lange Winterabende nie 
seinen Reiz verliert. 

H.K. 

(Zu Seite 50/51) 


WARLOCK 


Seit einiger Zeit schon auf 
dem Markt ist das Spiel 
Warlock von der Fa. 
Powersoft aus Kevelaer. 

Es soll hier versucht wer¬ 
den, eine Mischung aus 
Action-, und Adventure- 
Spiel zu mixen. Der Held 
des Spiels soll das Schloß 
des Drachen Anaut fin¬ 
den, in dem seine Gelieb¬ 
te gefangen gehalten wird. 
Zu diesem Zweck begibt 
er sich in einen schier un¬ 
endlichen Wald," wo er 
verschiedene Dinge finden 
soll, die er zur Befreiung 
braucht. In diesem Wald 
begegnen ihm die ver¬ 
schiedensten Ungeheuer, 
Monster, Vampire u.ä. 

Auf eingestreuten Lich¬ 
tungen kann der Held sich 
neue Lebensenergie holen, 
aber ein hartnäckiges Irr¬ 
licht versucht ihn daran 
zu hindern. Soweit die 
Story, hört sich interes¬ 
sant an und macht die 
- Sache so richtig span¬ 
nend. Aber die Umset¬ 
zung ist bei weitem nicht 
so gelungen, wie es die 
Einleitung verspricht. Die 
angespriesenen 241 
„Bildschirme“ sehen, mit 
Ausnahme des Wegver¬ 
laufs, immer gleich aus. 


Von Action ist in diesem 
Spiel aber rein gar nichts 
zu bemerken. Der Held 
auf der Suche nach dem 
Schloß bewegt sich näm¬ 
lich im Zeitlupentempo 
über den Bildschirm! 
Wieviel Münzen oder ande¬ 
re Dinge man denn nun 
finden muß, oder ob man 
alle Bildschirme bewälti¬ 
gen muß, um das Schloß 
des Drachen zu finden, 
ist auch nirgends gesagt, 
aber das ist sicher das 
abenteuerliche an dem 
Spiel. Auch der sonst so 
lobenswerte Einfallsreich¬ 
tum der Männer von 
Powersoft in Sachen Gra- 


Die Fa. Powersoft in Ke¬ 
velaer bringt nun endlich 
auch für den TI 99/4A ei¬ 
ne Version des bekannten 
Spielhallenhits Decathlon 
auf den Markt. Allerdings 
handelt es sich hierbei nur 
um einen Triathlon, da le¬ 
diglich 3 Sportarten ver¬ 
treten sind. Es sind dies: 
100-Meter-Lauf, Weit¬ 
sprung und Speerwerfen. 
Nachdem die bekannte 
Powersoft Erkennungs¬ 
musik verklungen ist, 
wird man nach der Anzahl 
der Spieler gefragt, wie 
diese heißen und für wel¬ 
ches Land diese starten 
wollen (12 Möglichkeiten). 
Sind diese Formalitäten 
erledigt, betritt man ein 
Stadion, das selbstver¬ 
ständlich vollbesetzt ist. 
Die Grafik kann man hier 
als gut gelungen bezeich¬ 
nen, es wurde auch Wert 
auf Details gelegt. Nun be¬ 
ginnt jeder Spieler einzeln 


fikgestaltung läßt hier 
doch sehr zu wünschen 
übrig. Empfehlenswert ist 
diesas Spiel nur für ganz 
besondere Geduldskünst¬ 
ler. Es steht nämlich zu 
befürchten, daß viele 
„Normal-User“ nach eini¬ 
ger, ergebnislos verlaufe¬ 
nen, Zeit, ohne die Freun¬ 
din befreit zu haben, auf¬ 
geben. 

Nach der vielversprechen¬ 
den Einführung ist War¬ 
lock doch eine kleine 
Enttäuschung. 

Spielidee: xxxx 

Grafik: xx 

Motivation: xx 

Gesamturteil: xx 


mit dem 100-Meter-Lauf. 
Ist der zu Ende, folgen 
Weitsprung und Speerwer¬ 
fen. Zwischen den einzel¬ 
nen Disziplinen wird ein 
Zwischenstand in Form 
einer Nationenwertung 
auf der Anzeigetafel aus¬ 
gegeben. Die Bewegungen 
werden durch Hin- und 
Herbewegungen des Joy¬ 
sticks und die Feuertaste 
erreicht. Dabei kommt es 
- allerdings nicht darauf an, 
den Knüppel so schnell 
wie möglich'hin- und her¬ 
zubewegen, sondern das 
richtige Maß zu finden. 
Zum Abschluß sei gesagt, 
Sommerspiele ist für 
mehrere Spieler sicher 
eine ganze Weile interes¬ 
sant, für den Einzelspieler 
dürfte es jedoch sehr 
schnell langweilig werden. 
Spielidee: 

Grafik: 

Motivation: 

Gesamturteil: 


Sommerspiele 


u s-a i q ’ . os 

0 




xx 

xxxx 

XXX 

XXX 
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HEINT_ 

Die Fa. Powersoft ver¬ 
spricht mit dieser Kasset¬ 
te das Zeitalter der Fan¬ 
tasy-Rollenspiele nun 
auch für den TI 99/4A. 
Heint läßt sich grob mit 
Fantasy-Rollenspielen wie 
Ultima, Xyphus oder 
Wizardy für Apple und 
Commodore vergleichen. 
Das Programm „Heint“ ist 
derart komplex, daß der 
Speicher des TI mit Ex¬ 


gedreht werden und es 
kann losgehen. Zu Anfang 
des Spiels, das übrigens 
mit Konsolentastatur be¬ 
dient wird, muß man sich 
entscheiden, wieviel In¬ 
telligenz und Stärke man 
seinem Held mitgeben 
möchte. Dafür stehen ei¬ 
nem 60 Punkte zur Ver¬ 
fügung, also z.B. Stärke 
50 und Intelligenz 10. 


auch am Anfang eintönig 
erscheinen sollte, haben 
Sie Geduld und versuchen 
es mal mit anderer Punk¬ 
teaufteilung, es bietet 
wirklich noch viele Varia¬ 
tionen. 

Die Fa. Powersoft hat mit 
diesem Programm tat¬ 
sächlich ein Fantasy-Rol¬ 
lenspiel für den TI hervor¬ 
gebracht, das an die Gren¬ 


ze der Speichermöglich¬ 
keit stößt. * 

Um möglichst viele TI- 
User anzusprechen, ist es 
mit Konsole und X-Basic 
zu spielen. 

Bewertung: 

Spiel idee: xxxx 

Grafik: x 

Motivation: xxx 

Gesamturteil: xxx 
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tended-Basic-Modul bis Kraft hat unser Held 
auf die Bytes, die zur Aus- nötig, denn der Magier 
führung des Spieles nötig Aragon hat Friedland 
sind, belegt ist. Das ei- - verflucht, und diesem 
gentliche Spielfeld umfaßt Friedland geht es jetzt 
500 Bildschirmseiten. sehr schlecht, weil die 
Somit sind eine Menge Sonne verdunkelt ist. Un- 
Aktionen möglich. Schade sere Figur muß nun Ak- 
ist, daß dabei die Grafik tionen und Kämpfe be- 
nur einfach gehalten wer- wältigen. 
den konnte. Der Sound Zu diesem Zweck be- 
bleibt ganz auf der Strek- kommt er außer den 
ke. Natürlich ist es sehr Punkten für Stärke und 
schwierig, mit einem im Intelligenz noch Lebens- 
Gegensatz zu Commodo- .punkte, Proviant, Gold, 
re knappen Speicher, ein und wenn Sie gut sind, 
Fantasy-Spiel zu entwer- auch noch Diamanten. So 
fen, das allen Anforderun- ausgestattet, kann er dann 
gen gerecht werden soll. auf die gefährliche Reise 
Es sind dann Kompro- gehen. Er muß dabei ver¬ 
misse unausweichlich. schiedene gefährliche Si- 

Das Spielprogramm be- tuationen meistern, denen 

steht aus zwei Teilen, der er aber auch aus dem Weg 
Anleitung und dem eigent- gehen kann. Die Grafik ist, 
liehen Spiel. Die Anleitung wie schon erwähnt, we¬ 
ist sehr schön gemacht. gen zu knapper Speicher- 
Der größte Teil der Er- möglichkeit mager ausge- 
klärung ist als Gedicht fallen, Sound gar keiner 
aufgesetzt. Nach der An- vorhanden, 
leitung muß die Kassette Wenn Ihnen das Spiel 


Berechnung beliebiger 
Dreiecke 

Das Programm ist sehr teil des Programms, 
einfach zu bedienen. Auf Aufforderung des 

Nachdem es mit RUN Computers muß man nun 

gestartet wurde, wird die gegebenen 3 Stücke 
das Titelbild gezeigt. des Dreiecks benennen. 

Nun sollte man, wie auch Seiten gibt man mit den 
auf dem Bildschirm an- Kleinbuchstaben a, b und 
gezeigt wird, die ALPHA- c ein. Winkel gibt man 
LOCK-Taste entrasten. durch Druck der entspre- 

Es ergeben sich drei Mög- chenden Buchstaben und 

lichkeiten: Durch Druck gleichzeitig SHIFT ein. 
auf die Taste “D“ wird Dies wird übrigens auch 
ein Dreieck auf den Bild- auf dem Titelbild be¬ 
schirm gezeichnet, um schrieben, 

sich mit der Benennung Sind also beispielsweise 
der Seiten und Winkel die Seiten a und b und 
noch einmal vertraut zu der Winkel y gegeben, so 
machen. Zusätzlich wird gibt man ein: “a“ ENTER; 
eine kurze Anleitung ge- “b“ ENTER; “SHIFT C“ 
geben. Durch Druck auf ENTER. Also: 
die Taste “E“ kann man a = SHIFT A 
das Programm beenden. ß = SHIFT B 
Durch Druck auf eine be- y = SHIFT C 
liebige andere Taste (z.B. Hat man dem Computer 
Leertaste) hingegen nun die Namen der drei 

kommt man zum Haupt- gegebenen Stücke mitge- 
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teilt, dann wird man auf¬ 
gefordert, die entspre¬ 
chenden Werte einzuge¬ 
ben. 

Winkel werden in Grad 
eingegeben, die Seiten in 
cm (falls m oder km ge¬ 
wünscht werden, ändert 
dies ja nichts am Zahlen¬ 
wert). 

Nun berechnet der Com¬ 
puter die übrigen 3 Stük- 
ke und zeigt sie an. Au¬ 
ßerdem zeigt der Compu¬ 
ter auch noch den Kongu- 
renzsatz an, nach dem ge¬ 
rechnet wurde (SSS. WWs, 
WSW, SSW, SWS). 

Die Eingabe von drei Win¬ 
keln ist natürlich nicht 
möglich, da es unendlich 
viele Lösungen gäbe. Wenn 
das Dreieck unmöglich ist, 
wird dies vom Computer 
angezeigt. Beim Kongruenz¬ 
satz SSW (gegeben: a/b/a 
oder a/c /7 oder b/c/ß) 
kann es manchmal 2 Lö¬ 
sungen geben. Der Com¬ 
puter zeigt auf Wunsch 
beide an. 

Am Programmende wird 
man gefragt, ob das Pro¬ 
gramm gelöscht werden 
soll, was beim TI durch ei¬ 
nen Trick möglich ist. 

Gibt man “J“ ein, fragt 
der Computer sicherheits¬ 
halber noch einmal nach. 
Gibt man wieder “J“ ein, 
ist das Programm „auf 
Nie-mehr-Wiedersehn“ 
verloren! Der Computer 
ist dann wieder im An¬ 
fangszustand, bereit pro¬ 
grammiert zu werden. Bei 
der Eingabe von “N“ 
bleibt das Programm hin¬ 
gegen im Speicher. 
Übrigens: 

Die Dreiecke, mit denen 
gerechnet werden soll, 
müssen nicht rechtwink¬ 
lig oder gleichseitig sein. 

Das Programm rechnet 
wirklich mit allen beliebi¬ 
gen Dreiecken und ist so¬ 
mit tatsächlich sehr viel¬ 
seitig zu verwenden. Es 
ist das Handwerkszeug 
nicht nur für Schüler, Stu¬ 
denten, Architekten, Sta¬ 
tiker, Konstrukteure..., 
Programmierer, techni¬ 
sche Zeichner, Mathema¬ 
tiker, Physiker... 

Das Handwerkzeug für je¬ 
den, der mit Seiten und 
Winkeln zu tun hat. 


Programmaufbau: 

100— 270 Vorbereitun¬ 
gen (Variablen, Farben, 
Zeichen definieren, etc.) 

280- 370 Titelbild (mit 
Anzeige, wie Seiten & 
Winkel eingegeben wer¬ 
den) 

380— 670 Eingabe der 
Daten (1. Namen der ge- 
geb. Stücke, 2. Werte die¬ 
ser Stücke) 

680— 800 SSS (3 Seiten 
gegeben) 

810-1030 WWS (1 Seite 
und 2 Winkel gegeben) 
1040-1180 WSW (1 Seite 
und 2 anliegende Winkel 
gegeben) 

1190-1380 SSW (2 Sei¬ 
ten und 1 gegenüberlie¬ 
gender Winkel gegeben) 
1390-1550 SWS (2 Sei¬ 
ten und der eingeschlosse¬ 
ne Winkel gegeben) 
1560—1660 Abfrage ob 
Programm-Ende oder Drei¬ 
eck zeichnen oder neue 
Berechnung 

1670—1730 Überprüfung 
auf Eingabe-Fehler 
1740-1770 Unterpro¬ 
gramm Warten 
1780—1880 Unterpro¬ 
gramm Musterdreieck 
zeichnen 

Dieses Programm leistet 
im Gegensatz zu vielen 
anderen Programmen 
(auch professionellen) 
etwas ganz besonderes: 

Um wirklich einfach zu 
bedienen und komfor¬ 
tabel zu sein, muß man 
nur 1. die Namen der 3 
gegebenen Stücke und 
2 . die entsprechenden 
Werte eingeben. 

Nun muß der Computer 
selbst herausfinden, nach 
welchem Kongru^nzsatz 
er rechnen muß. Beispiel: 
Mögliche Eingaben der 
gegebenen Stücke beim 
Kongruenzsatz WWS: 
a/ß/a oder a/ß/b oder 
a/ 7 /a oder a/y/c oder 
ß/y/b oder ß/y/c 
Entsprechend viele Mög¬ 
lichkeiten gibt es bei den 
anderen Kongruenzsätzen. 
Deshalb wirkt das Pro¬ 
gramm vielleicht auf den 
ersten Blick etwas aufwen¬ 
dig. Aber im Alltag ist die 
Fähigkeit des Programms, 
mit wirklich allen mögli¬ 
chen Kombinationen rech¬ 


nen zu können, sehr nütz¬ 
lich. Denn der Benutzer 
muß sich keine zeitauf¬ 
wendigen Gedanken mehr 
machen, nach welchen 
Formeln er nun rechnen 
muß. Man muß sich also 
bei der beiliegenden Ta¬ 
belle klarmachen, daß die 
dort angegebenen For¬ 
meln nur für den Fall 
stimmen, daß die erste 
der möglichen Kombina¬ 
tionen gegeben ist (in 
obigem Beispiel a/ßl a). 
Aber der Computer rech¬ 
net auch mit allen ande¬ 
ren Kombinationen. 

Würde man dies „mit 
Hand“ berechnen, ginge 
wohl sehr viel Zeit ver¬ 
loren. 

Zum Schluß noch ein 
Trick (fast wie bei pro¬ 
fessionellen Program¬ 
men...): 

Wenn man nach der Ein¬ 
gabe von RUN die 
ENTER-Taste solange ge¬ 
drückt hält, bis eine An¬ 
zeige auf dem Bildschirm 
erscheint, folgen 2 Fragen: 

1. INVERSE? Bei Einga¬ 
be von “J“ erscheint 
die Schrift weiß auf 
blau. 

2. Doppelte Genauigkeit? 
Bei Eingabe von “J“ 
erscheinen die Ergeb¬ 
nisse mit 4 Nachkom¬ 
mastellen, außerdem 
können bis zu 8 stellige 
Zahlen eingegeben 
werden! 

Be¬ 

schriftung 

Dies Programm ist als Sub¬ 
programm geschrieben 
und erlaubt jede Art von 
Beschriftung (Titel, Text, 
Vorspann von Program¬ 
men) ohne speicherplatz- 
intensive Zeichendefini¬ 
tion. Es sind insgesamt 
acht Schriftzeichengrößen 
darstellbar. 

Das eigentliche Programm, 
das in jedes Programm als 
Subprogramm eingebaut 
werden kann, beginnt mit 
Zeile 240. Die davor lie¬ 
genden Zeilen erzeugen 
die Demonstration. An 


das Unterprogramm wer¬ 
den in DATA-Zeilen 
über READ-Befehle die 
folgenden Parameter 
übergeben: 

W$: Der darzustellende 
Text (in Groß- und Klein¬ 
buchstaben). 

ZE und SP: Zeile bzw. 
Spalte, ab denen am Bild¬ 
schirm der Text darge¬ 
stellt werden soll. 

GR: Schriftgröße (1-4), 

' die durch die Wahlmög¬ 
lichkeit von Groß- und 
Kleinbuchstaben acht 
unterschiedliche Größen 
erlaubt. 

Fl und F2: Vorder- und 
Hintergrund färbe des 
Texts, bzw. einzelner 
Buchstaben. 

Das Listing und der Ab¬ 
lauf des Demonstrations¬ 
programms zeigen rasch, 
wie dies Subprogramm 
einzusetzen ist. 
Empfehlenswert ist es 
einmal nachzuvollziehen, 
wie der Autor seine über¬ 
dimensionalen Zeichen 
generiert. 

Eleso- 

lumel 

Dieses Lern-und Rechen¬ 
programm erschließt 
Ohm’sches Gesetz, Wider¬ 
stand, Spannung, Strom¬ 
stärke und Leistung. 

Das Programm ist menü¬ 
gesteuert und erklärt sich 
selbst. 

Der Berechnungsteil ent¬ 
hält als Besonderheit die 
Wahl von Dimensionen, 
die nicht als bekannt vor¬ 
ausgesetzt werden kön¬ 
nen: Volt, Watt, Ohm und 
Ampere sind zusätzlich 
definierbar mit 
dezi ( 10 “ 1 ), centi ( 10 _ 2 ), 
milli (~ 3 ), micro ( 10 -6 ). 
nano (10-9) pico (10 — ), 
femto ( 10 ~' 8 ), atto 
(IO -18 ), deka ( 10 1 ), hekto 
( 10 2 ), kilo ( 10 8 ), mega 
( 10 6 j, giga ( 10 9 ), tera 
( 10 12 ). 

Neben dem Ergebnis der 
Berechnungen wird im¬ 
mer auch die benutzte 
Formel und der Rechen¬ 
weg angezeigt. 
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10 *'• ********************** 


11 ! * * 

12 ! * ELESO-EUMEL * 

13 ! * * 

14 ! *- Copyright by * 

15 ! * * 

16 ! * Harald Sachtleben * 

17 ! * * 

18 ! * * 

19 ! * Benoetigte Geraete * 

20 ! * TI99/4A Konsole * 

21 ! * % Ext- Basic * 

22 ! * * 

26 ! * Speicherbelegung * 

27 ! * 9651 Bytes * 

28 ! * * 


29 ! ********************** 
100 REM VORBEREITUNG 
110 DIM A$(14),Z(14) 

120 FOR T=1 TO 14 :: READ A$ 
<T):: NEXT T :: CALL CHAR<95 
, '* 002222246456808" ,111, "0000 
38444444286C") 


130 DATA d=DEZl,c=ZENTI,m=MI 
LLI,_=MIKRO,n=NANO,p=PICO,f= 
FEMTO 

140 DATA a=ATTO,D=DEKA,h=HEK 
TO,k=KILO,M=MEGA,G=GIGA,T=TE 
RA 

150 FOR T=1 TO 14 s: READ Z< 
T):: NEXT T 

160 DATA 0.1,0.01,0.001,0.00 
0001,0.000000001,0.000000000 
001,0.000000000000001,0.0000 
00000000000001 

170 DATA 10,100,1000,1000000 
,1000000000,1000000000000 
180 P$<1,1)="WATT:" :: P$<2, 
1)="OHM:" s: P*(1,2),P*(2,2) 
="VOLT:" :: P*(1,3),P*(2,3)= 
"AMPERE:" 

190 REM MENUE/TITEL 
200 CALL FARBEN(8,2,14,0) 

210 CALL CHAR(33,"000000FF", 
37,“0000001F080402FF",35,"00 
000000000000FF",36,"000000F8 
102040FF") 

220 DISPLAY AT(5,1):"###%!!! 

!ELESO-EUMEL!!!!$####" :: DI 
SPLAY AT <14,6):"1 FUER WIEDE 
RHOLEN" 

230 DISPLAY ATT 16,6):"2 FUER 
RECHNEN" :: DISPLAY AT(18,6 
):"3 FUER ERLAEUTERUNG" 

240 FOR T=1 TO 30 :: CALL SO 
UND(-1000,131,T):: NEXT T :: 

FOR T=30 TO 1 STEP -1 :: CA 
LL SOUND(-1000,262,T):: NEXT 
T 

250 CALL PAUSE(10):: DISPLAY 
AT(10,1):"" :: CALL PAUSE(5 
):: CALL SOUND(1,880,10):: D 
ISPLAY AT( 10,6) :"BITTE DRUEC 


KEN SIE :" :: CALL KEY(0,K,S 
T) 

260 IF K<49 OR K>51 THEN 250 
270 ÖN K—48 GOTO 280,510,820 
280 REM LERNPROGRAMM 
290 ! ATOM 

300 CALL CLEAR :: CALL CHAR( 
33,"001010101010001"):: CALL 
TEXT(0):: CALL TASTE :: CAL 
L CLEAR :: CALL TEXT(0>:: CA 
LL TASTE 

310 CALL MAGNIFY(3):: CALL C 
HAR(140,"0000000000010307070 
3010000000000000000000080C0E 
0E0C08",124,"000000000000000 
000000000000303") 

320 CALL CHAR(126,"",128,"00 
0000000000606",132,"00000000 
00000000000000000000000000C0 
C" > 

330 CALL CHAR(136,"000000000 
0000000000000000000000000000 
000000000000606") 

340 CALL FARBEN(8,2,2,0):: C 
ALL SPRITE(#1,140,5,17,33,#2 
,124,9,17,33) 

350 CALL TEXT(0):: GOSUB 360 
:: CALL CLEAR :: CALL TEXT( 
0):: GOSUB 360 :: GOTO 390 
360 DISPLAY AT(24,1):"TASTE 
DRUECKEN !" :: FOR T=124 TO 
136 STEP 4 :: CALL KEY(0,K,S 
T):: IF STOB THEN 380 ELSE 
CALL PATTERN(#2,T) 

370 NEXT T :: GOTO 360 
380 RETURN 

390 CALL CLEAR :: CALL DELSP 
RITE(ALL):: CALL FARBEN(12,2 
,12,0):: CALL TEXT(0) 

400 ACCEPT AT(4,20):KL :: IF 
KL< >3 THEN DISPLAY AT(20,1> 

:"OH DAS TUT MIR ABER LEID.- 
..DAS WAR LEIDER FALSCH..." 
:: CALL PAUSE(200):: CALL TE 
XT (2) 

410 IF KL<>3 THEN GOTO 290 
420 CALL CLEAR 
430 ! ELEKTRONENSTROM 
440 CALL FARBEN(2,8,2,0):: C 
ALL TEXT(0):: CALL TASTE :: 
CALL CLEAR :: CALL CHAR(140, 
"1818081C2A081422",141,"1818 
081C1C080818") 

450 CALL MAGNIFY(2):: CALL C 
HAR(142,"1818183C5A182442") : 
: CALL TEXT(0):: CALL MAENNC 
HEN(2,20):: CALL TASTE :: CA 
LL CLEAR :: CALL TEXT(0) 

460 ACCEPT AT(4,28):KL :: IF 
KLOl THEN RESTORE 970 :: G 
OTO 430 

470 ! OHMSCHE GESETZ 

480 CALL FARBEN(2,3,2,0):: C 
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ALL TEXT(0):: CALL TASTE :: 
CALL CLEAR ss CALL TEXT(0)ss 
CALL MAENNCHEN (2,170):s CAL 
L TASTE 

490 CALL CLEAR :: CALL TEXT < 
0) s : CALL TASTE s s CALL CLEA 
R :: CALL TEXT<0>:: CALL TAS 
TE :s CALL CLEAR ss CALL TEX 
T(0):: CALL TASTE 
500 CALL FARBEN<2,12,2,0)s: 
CALL TEXT(0):: CALL TASTE :: 

CALL CLEAR s: CALL TEXT<0): 
: CALL TASTE :: RESTGRE 870 
:: GOTO 190 
510 REM RECHENEUMEL 
520 CALL FARBEN(3,2,2,0) 

530 CALL CHAR(143,"000000FF" 
):: CALL COLOR(0,9,1,14,9,1, 
3,12,1,4,12,1) 

540 DISPLAY AT(2,1):"MGEGLIC 
HE GROESSEN:" 

550 FÜR T=4 TO 16 STEP 2 :: 
CALL SOUND(1,330,0):: DISPLA 

Y AT(T,4):A$(T/2-1):: NEXT T 
560 FOR T=4 TO 16 STEP 2 :: 
CALL SOUND<1,330,0):: DISPLA 

Y AT(T,18):A*(T/2+6):s NEXT 
T 

570 CALL HCHAR<17,1,143,32): 

: CALL HCHAR(19,1,143,32):: 
CALL HCHAR(21,1,143,32):: CA 
LL HCHAR(23,1,143,32) 

580 DISPLAY AT(18,1):"RECHNU 
NG MIT WATT?(J/N)" :: ACCEPT 
AT(18,28)BEEP VALIDATE("JN" 
) :B* 

590 IF B$="J" THEN K=1 ELSE 
IF B$="N" THEN K=2 ELSE 580 
600 FOR T=1 TO 3 
610 DISPLAY AT(16+T * 2 ,1)SIZE 
(28)BEEP:P*(K,T):s ACCEPT AT 
<16+T*2,9)VALIDATE(NUMERIC)s 
B$ : : IF B$="" THEN P(T)=0 E 
LSE P(T)=VAL<B$) 

620 DISPLAY AT(16+T*2,1)SIZE 
(28)BEEP:"GROESSE s" s s ACCEP 
T AT(16+T*2,15)sQ*(T) 

630 DISPLAY AT(16+T * 2 ,1)SIZE 
(28)BEEP:P(T);(T);SEG$(P$( 
K,T),1,1) 

640 NEXT T 

650 REM UMRECHNUNG 

660 FOR X=1 TO 3 ss FOR T=1 

TO 14 

670 IF Q*(X)=SEG$(A*(T>,1,1) 
THEN P(X)=P(X)*Z(T)ss GOTO 7 
00 ELSE 680 

680 NEXT T ss IF Q*<X>="" TH 

EN 700 

690 GOTO 580 

700 NEXT X :: CALL HCHAR(1,1 
,32,512) 

710 FOR T=1 TO 3 :: DISPLAY 


AT(T*2-1,1)sP*(K,T) ;" ";P<T) 
;SEG*<P$<K,T),l,l)ss NEXT T 
720 DISPLAY AT<10,1) s “FEHLER 
?(J/N)“ ss ACCEPT AT(10,14) 
VALIDATE <"JN")BEEPs B$ ss IF 
B$="J" THEN 510 ELSE IF B*<> 
"N" THEN 720 

730 CALL HCHAR(10,1,32,32) 
740 CALL FORMEL(P(1),P<2),P( 
3),K,W) 

750 GOSUB 770 

760 DISPLAY AT(18,l)s"N=NEUE 
RECHNUNG/M=MENUE" :s CALL K 
EY(0,K,ST):: IF K=77 THEN 19 
0 ELSE IF K=78 THEN 510 ELSE 
760 

770 IF W>100 OR W*1000<1 THE 

N 780 ELSE 810 

780 FOR T=1 TO 14 :: IF W/Z( 

T)>100 OR W/Z(T)<1 THEN 790 

ELSE W=W/Z(T):: M=T :: GOTO 

800 

790 NEXT T s: GOTO 810 ' 

800 DISPLAY AT(24,l)s"=";W;A 
$(M) 

810 RETURN 

820 REM ELAETERUNG 

830 CALL CLEAR s: PRINT "DIE 

SE PROGRAMM IST IN ZWEI..HAU 

PTPROGRAMME UNTERTEILT,"s 

DAS WIEDERHOL- UND DAS"s"REC 

HENPR. . " 

840 PRINT :"DAS WIEDERHOLPR. 
DIENT ZUM...WIEDERHOLEN DER. 

.BEGRIFFE...VOLT,AMPERE,OHM, 

WATT,.ELEKTRISCHER STR 

OM,...." 

850 PRINT "DAS OHMSCHE GESET 
Z.": s s s s"DAS RECHENPROGR 
AMM ZUM ER-..RECHNEN VON AUF 
GABEN NACH...DEN IM W.-PROGR 
AMM ERWAEHN- TEN FORMELN." 
860 PRINT- s s s ss CALL TAST 
E ss CALL CLEAR ss GOTO 190 
870 DATA 1,1,12,1,WAS VERSTE 

HT MAN UNTER.ELEKTRISCH 

EN STROM? 

880 DATA 0,7,"UM DIESE FRAGE 
BEANTWORTEN..ZU KOENNEN,MUS 

S MAN SICH_DAS KLEINSTE T 

EILCHEN EINES" 

890 DATA "JEDEN ELEMENTES BE 

TRACHTENS.. 

...DAS ATOM",,,,, 

900 DATA 1,5,3,13,"BLAU = AT 
OMKERN",5,13,"ROT = ELEKTRON 
",8,1,"EIN ATOM BESTEHT AUS 
EINEM..ATOMKERN UND NEGATIVS 
ELADENEELEKTRONEN." 

910 DATA 12,1,"DER ATOMKERN 


WIEDERUM.BESTEHT AUS N 

EUTRALEN..NEUTRONEN UND 

POSITIV-.GELADENEN PRO W 
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TONEN - " ? ; ' K * 

920 DATA 17,1 ,“DIE ELEKTRONE 
N FLIEGEN DURCHDIE GEGENSEIT 
IGE ANZIEHUNGS-KRAFT IN ELEK 
TRONENHUELLEN--UM DEN ATOMKE 
RN- " 

930 DATA 1,4,8,1,"DAS ELEKTR 

ON BESITZT DIE-KLEINSTE B 

EKANNTE NEGATIV-..ELEKTRISCH 

E LADUNG,DIE.NEGATIVE E 

LEMENTARLADUNG." 

940 DATA 13,1,"DAS SELBE GIL 

T FUER DAS_PROTON. ", 16,1 

,"DIE ELEKTRISCHEN LADUNGEN. 

-.DER ELEKTRONEN UND DER- 

..PROTONEN HEBEN SICH " 

950 DATA 19,1,"MEIST AUF,DAS 

HEISST,SIE_SIND ELEKTRIS 

CH NEUTRAL." 

960 DATA 1,4,4,1,"DAS ELEKTR 
ON IST:", 10,1,"1 FUER ELEKTR 
ISCH NEUTRAL",12,1,"2 FUER P 
OSITIV GELADEN",14,1,"3 FUER 
NEGATIV GELADEN" 

970 DATA 2,9,"MAN KANN UNTER 

GEWISSEN.UMSTAENDEN EIN 

IGE ELEKTRONENVON IHREN ATOM 
KERNEN TRENNEN.", 

980 DATA "DABEI ENTSTEHEN DI 
E UEBRIG- GEBLIEBENEN POSITI 
VEN IONEN UND FREIUMHERSCHWE 

BENDE.ELEKTRONEN. " 

990 DATA ,"DIESE KANN MAN MI 
T HILFE VONGENERATOREN,Z.B. 

EINER.BATTERIE IN BEWEG 

UNG SETZEN.",,,, 

1000 DATA 0,7,"ALS MAN NOCH 

NICHT ALLZU_VIEL UEBER DI 

E.PHYSIKALISCHE 

N VORGAENGE_BESCHEID WUSS 

TE ," 

1010 DATA ,"HAT MAN, OBWOHL 
DIES NICHT.-RICHTIG IST,GESA 
GT,DASS DER ELEKTRISCHE STRO 
M VOM PLUS- ZUM MINUSPOL FLI 
ESST,", 

1020 DATA "DENN DER ELEKTRON 

ENSTROM_FLIESST LOGISCHER 

WEISE VOM..MINUS- ZUM PLUSPO 
L - " , , 

1030 DATA 1,3,4,1,"DER ELEKT 
RONENSTROM FLIESST",10,1,"1- 
VOM MINUS- ZUM PLUSPOL",13, 
1,"2. VOM PLUS- ZUM MINUSPOL 

II 

1040 DATA 2,11,"AUCH BEIM EL 
EK. STROM GIBT..ES GROESSENB 
EZEICHNUNGEN.",,,"1. AMPERE" 
,,"AMPERE GIBT AN,WIEVIEL " 
1050 DATA "ELEKTRONEN IN EIN 
ER SEKUNDE AN EINER STELLE D 
ES STROM-..KREISES HINDURCHF 
LIESSEN" 


1060 DATA ,"BEI EINEM AMPERE 
FLIESSEN..-PRO SEKUNDE 6,25 
TRILLIONEN ELEKTRONEN-",, 
1070 DATA 1,2,3,1,"2. VOLT" 
1080 DATA 5,1,"WENN MAN DEN 
STROMKREIS MIT EINER WASSERL 
EITUNG VERGLEI—CHEN WUERDE,D 
ANN WUERDE VOLTDIE EINHEIT D 
ES WASSERDRUCKSSEIN-" 

1090 DATA 1,3,3,1,"3. OHM",8 
,1,"OHM IST DIE EINHEIT DES. 

_WIEDERSTANDES,DEN JEDER. 

_KOERPER,DER STROM. 

_'VERBRAUCHT'" 

1100 DATA 12,1,"HERVORRUFT,Z 
.B. EINE GLUEH- BIRNE" 

1110 DATA 1,5,1,1,"ZUSAMMENF 
ASSUNG:",3,1,"DIE STROMMSTAE 
RKE WIRD GEMES-SEN IN AMPERE 
CAD.ES HAT DASSYMBOL >>I<<" 
1120 DATA 7,1,"DIE SPANNUNG 
WIRD GEMESSEN IN VOLTCVD.ES 
HAT DAS SYMBOL »U« .",11,1, 
"DER WIEDERSTAND WIRD GEMES¬ 
SEN IN OHMCo3." 

1130 DATA 13,1,"ES HAT DAS S 
YMBOL >>R<<." 

1140 DATA 1,4,3,1,"U=SPANNUN 
GCVI",6,1,"I=STROMSTAERKE CAD 
",9,1,"R=WIEDERSTAND C o D",16, 
1,"DARAUF HIN WURDE EINE FOR 
MELFESTGELEGT." 

1150 DATA 1,6,3,1,"DAS OHMSC 
HE GESETZ:",6,1,"I = U / R", 
12,1,"DER BEGRIFF WATT IST S 
CHNELLERKLAERT:",15,1,"WATT= 
STRÖMSTAERKE*SPANNUNG" 

1160 DATA 17,1,"WATT=LEISTUN 
G",19,1,"PCWD = UCVD * ICAD" 
1170 DATA 1,3,3,1,"WENN DU E 

TW AS NICHT.VERSTÄNDE 

N HAST,DANN BITTE..ICH DICH, 
DAS LERNPROGRAMM..-NOCH EINM 
AL DURCHZUGEHEN-" 

1180 DATA 10,1,"DU KANNST MI 

T DEM..RECHENPROGRA 

MM NACH DIESEN.-FORMELN AUFG 
ABEN LOESEN LAS-SEN UND DICH 
DABEI SELBST.." 

1190 DATA 17,1,">>UEBERPRUEF 
EN< <B.D.N.E.H.S." 

1200 SUB TEXT(A) 

1210 IF A>0 THEN RESTORE 870 
:: GOTO 1250 

1220 READ B2 :: IF B2=l THEN 
1240 

1230 READ B3 :: FOR T=1 TO B 
3 :: READ KT :: PRINT KT :: 
NEXT T :: SUBEXIT 
1240 READ B3 :: FOR T=1 TO B 
3 :: READ X,Y,KT :: DISPLAY 
AT(X,Y)BEEP:KT :: NEXT T 
1250 SUBEND 
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1260 SUB MAENNCHEN(A,B) 

1270 CALL SPRITE ( # 1 ,33, A , B , 1 
,0,100):: CALL SPRITE(#2,63, 
A,B,250,0,-100):: CALL SOUND 
(—1,—3,0) 

1280 FOR T=1 TO 100 :: NEXT 
T :: CALL DELSPRITE(ALL) 

1290 SUBEND 
1300 SUB PAUSE(A) 

1310 FOR T=1 TO A :: NEXT T 
1320 SUBEND 

1330 SUB FARBEN(A,B,C,D) 

1340 IF D=1 THEN CALL CHAR<3 
2,"55AA55AA55AA55AA")ELSE CA 
LL CHAR(32,"0") 

1350 IF D=2 THEN 1360 ELSE C 
ALL CLEAR 

1360 FOR T=0 TO 14 :: CALL C 
OLOR(T,A,B):: NEXT T :: CALL 
SCREEN(C) 

1370 SUBEND 
1380 SUB TASTE 

1390 DISPLAY AT<24,1):"BITTE 
TASTE DRUECKEN" :: CALL KEY 
(0,K,ST):: IF ST=0 THEN 1390 
1400 SUBEND 

1410 SUB FORMEL <A,B,C,K,H> 
1420 IF A=0 THEN D=1 ELSE IF 
B=0 THEN D=2 ELSE D=3 
1430 ON K GOTO 1440,1540 
1440 ON D GOTO 1450,1480,151 
0 

1450 DISPLAY AT(8,1)s"P = U 
* I" 

1460 DISPLAY AT(11,4):B :: D 
ISPLAY AT(12,1):"P= *" :: DI 
SPLAY AT(13,4):C :: H=B*C 
1470 DISPLAY AT(15,1):"P=";H 
;"W M :: GOTO 1640 
1480 DISPLAY AT(7,4): "P" :: 
DISPLAY AT(8,1):"U=.." :: DI 
SPLAY AT(9,4):"I“ 

1490 DISPLAY AT(11,4):A :: D 
ISPLAY AT(12,1): "U= : ** :: DI 
SPLAY AT(13,4):C :: H=A/C 
1500 DISPLAY AT(15,1):"U=" ; H 
; "V" :: GOTO 1640 
1510 DISPLAY AT(7,4): "P" :: 
DISPLAY AT (8,1):" I=. . " :: DI 
SPLAY AT(9,4):"U" 

1520 DISPLAY AT(11,4):A :: D 
ISPLAY AT(12,1):"1= :" :: DI 
SPLAY AT(13,4):B :: H=A/B 
1530 DISPLAY AT(15,1):" 1='*;H 
;"A" :: GOTO 1640 
1540 ON D GOTO 1550,1580,161 
0 

1550 DISPLAY AT(7,4):"U" :: 
DISPLAY AT(8,1):"R=- -" :: DI 
SPLAY AT(9,4):“I" 

1560 DISPLAY AT(11,4):R :: D 
ISPLAY AT(12,1):"R= :" :: DI 
SPLAY AT(13,4):C :: H=B/C 


1570 DISPLAY AT(15,1):"R=";H 
;"o" :: GOTO 1640 
1580 DISPLAY AT(8,1):"U = I 
* R" 

1590 DISPLAY AT(11,4):C :: D 
ISPLAY AT (12,1):" U= *" :: DI 
SPLAY AT(13,4):A :: H=A*C 
1600 DISPLAY AT(15,1):"U=";H 
;"V" :: GOTO 1640 
1610 DISPLAY AT(7,4): "U" :: 
DISPLAY AT(8,1):"I=.." :: DI 
SPLAY AT(9,4):"R" 

1620 DISPLAY AT(11,4):B :: D 
ISPLAY AT(12,1):"1= :" :: DI 
SPLAY AT(13,4):A :: H=B/A 
1630 DISPLAY AT(15,1):"I=";H 
; "A" 

1640 SUBEND 




Das Programm dient da- Das funktioniert recht gut, 
zu. dem Benutzer einen aber man muß natürlich 
Überblick über den Ver- wissen, daß mit der nume- 
lauf einer Funktion zu ver- rischen Auswertung einer 
schaffen. Funktion 100%ige Genauig- 

Es zeichnet einen grob an- keit nicht zu errechen ist. 

Hier liegt eben der Vorteil 
der analytischen Methode, 
die mit dem Heimcompu¬ 
ter nicht nachzuahmen ist. 
Es kommt in einigen sel¬ 
tenen Fällen vor, daß das 
Programm eine Funktion 
falsch interpretiert. Vor 
allem bei den Wendepunk¬ 
ten ist die Gefahr groß, 
weshalb ihre Existenz in 
der Auswertung auch nur 
vorsichtig vermutet wird. 
Das liegt daran, daß die 
Ableitungen der Funktio¬ 
nen nicht genau errechnet, 
sondern nur durch den Dif¬ 
ferenzenquotienten ange- 
- nähert werden können. 

Die zweite Ableitung führt 
dann schon zu ziemlich 
langen Rechenzeiten. Es 
ist jeweils zu überlegen, 
ob man die Wendepunkte, 
bei deren Berechnung dies 
auftritt, überhaupt braucht. 
Um aus dem Programm 
vorher aussteigen zu kön¬ 
nen, wird angezeigt, wann 

Bitte lesen Sie weiter auf Seite 35 


genäherten Graphen und 
untersucht die Funktion 
im vorgegebenen Intervall 
auf Nullstellen, Extrema, 
Pole und Wendepunkte. 
Sämtliche Ergebnisse 
werden über den Bild¬ 
schirm und, bei Bedarf, 
über den Drucker aus¬ 
gegeben. 

Für die Auflösung der 
Grafik und die Genauig¬ 
keit der errechneten Wer¬ 
te wurde ein Kompro¬ 
miß gewählt, der auf die 
Bedürfnisse solcher An¬ 
wender zugeschnitten ist, 
die in kurzer Zeit prak¬ 
tisch verwertbare Infor¬ 
mationen über die wich¬ 
tigsten Eigenschaften ei¬ 
ner Funktion haben 
möchten. Gedacht ist u.a. 
an Schüler und Lehrer, 
die die Ergebnisse ihrer 
eigenen Funktionsanaly¬ 
se überprüfen oder Hin¬ 
weise auf möglicherweise 
übersehene Merkmale 
bekommen wpllen. 
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10 

i 

********************** 

11 


* 

Berechnungen in 

* 

12 

i 

beliebigen Dreiecken* 

13 

i 

• 

* 


* 

14 

i 

* 

Copyright by 

* 

15 

i 

* 


* 

16 

i 

* 

Patrick Schmitz 

* 

17 

i 

* 


* 

19 

i 

* 

Benoetigte Geraete 

* 

20 

i 

* 

TI99/4A Konsole 

* 

21 

i 

* 

Ext. Basic 

* 

22 

i 

* 


* 

26 

; 

* 

Speicherbelegung 

* 

27 

; 

* 

10360 Bytes 

* 

28 

i 

* 


* 

29 

j 

********************** 


100 ! Vorbereitungen 

110 ! 

120 CALL CLEAR 

130 CALL KEY(0,K,S):: IF K=1 
3 THEN PRINT "Inverse (j/n) 

?»: : :: accept validate(" j j 

Nn")SIZE(i)BEEP:A$ :: IF A*= 

"J" OR A$="j" THEN F=5 :: Fl 

=16 :: GOTO 150 

140 F=16 :: F1=5 

150 IF K=13 THEN PRINT : :"D 

oppelte Genauigkeit (j/n) ?" 

: : :: accept validate("J jNn 
")size(1)beep:a$ :: if a$="J 
" OR A$="j" THEN GENAU=2 ELS 
E GENAU=0 
160 CALL CLEAR 
170 ON WARNING NEXT 
180 ON ERROR 1700 
190 DEF GRAD(X)=X*(PI/180) 
200 IF GENAU=0 THEN U$<1)="# 
######.##"• U$(2)="###### 

cm" ELSE U$<1)="###### 

###.####'" :: u*( 2 ) = »####### 

###.#### cm" 

210 CALL CHAR(65,"013A444444 
3A01007048487048487040004444 
4438101010",96,"060909060000 
0000",35,"FFFF",37,"C0C0C0C0 
C0C0C0C0") 

220 CALL CHAR(128,"0103060C1 
83060C080C06030180C060380000 
0000000000001"):: CALL CHAR( 
132,"00000000183C66C30103060 
C18307FFF80C06030180CFEFF") 
230 CALL CHAR(135,"000000000 
000FFFF") 

240 CALL SCREEN(F):: FOR Z=0 
TO 14 :: CALL COLOR (Z, Fl,1 ) 
:: NEXT z 
250 ! 

260 ! Titelbild 
270 ! 

280 DISPLAY AT(1,1):"berechn 
ungen in be- %(c)1985":TAB(2 

1) 5 "%Patrick": M 1iebigen drei 
ecken %schmitz" :: CALL HCH 


AR(5,3,35,28):: CALL HCHAR(4 
,23,37) 

290 DISPLAY AT<8,1):"bitte ’ 
alpha lock *-Taste":"entraste 
n.": : :"Moegliche Eingaben: 

": :"a = Seite a ( gegenuebe 
r A ) " 

300 DISPLAY AT <15,1):"b = Se 
ite b ( gegenueber B )":"c = 
Seite c ( gegenueber C )": 
:"Winkel A,B,C = SHIFT a,b,c 

H 

310 DISPLAY AT(22, 1 ):"Irgend 
eine Taste druecken !": : "E 

= Ende D = Dreieck" : 

I CALL HCHAR(21,3,35,28) 

320 CALL SOUND(-100,440,2,44 
4,6):: CALL SOUND(-100,438,6 
,442,8):: CALL SOUND(-100,33 
0,2,334,6) 

330 CALL KEY (0, K, S) : : IF SO 
1 THEN 330 ELSE IF K=101 OR 
K=69 THEN 1580 ELSE IF K=68 
OR K=100 THEN CALL DREIECK (F 
1):: GOTO 250 ELSE CALL SOUN 
D(-99,220,4,224,10)I: CALL S 
OUND(-99,222,6,226,11) 

340 ON ERROR 1700 
350 ! 

360 ! Daten - Eingabe 

370 ! 

380 CALL CLEAR :: DISPLAY AT 
<l,l):"bitte geben Sie ein, 
welche": :"Stuecke gegeben s 
ind: " 

390 ACCEPT AT(5,1)BEEP VALID 
ATE("abcABC")SIZE(1):A$ :: A 
CCEPT AT (7,1) BEEP VALIDATE (" 
abcABC")SIZE(1):B* 

400 ACCEPT AT(9,1)BEEP VALID 
ATE <"abcABC")SIZE(1):C$ :: I 
F A*-"" OR B*-"" OR C*- M " TH 
EN 440 ELSE IF ASC(A*)<68 AN 
D ASC(B$)<68 AND ASC(C*)<68 
THEN 410 ELSE 420 
410 DISPLAY AT(11,1):"Es mus 
b wenigstens 1 Seite": :"geg 
eben sein !" :: CALL SOUND<- 
100,110,3,112,8):: FOR Z=1 T 
o 750 :: NEXT z :: goto 380 
420 IF A$=B$ OR A*=C$ OR B$= 
C$ THEN 430 ELSE 450 
430 CALL SOUND(-100,110,3,11 
2,5):: DISPLAY AT(ll,l):"Ein 
gabe-fehler !" :: FOR Z=1 TO 
500 :: NEXT z :: goto 380 
440 DISPLAY AT<12,1):"Eingab 
e-fehler !" :: CALL SOUND<-10 
0,110,2):: call w :: goto 38 
0 

450 sz$(l)=A$ :: sz$(2)=B$ : 

: sz$(3>=c$ :: Display at(12 
,d:"OK !" :: call sound <-10 




0,-660,4,662,6):: FOR Z«1 TO 
100 :: next z :: call clear 

460 IF ASC(A*)<68 THEN SW* < 1 
) = "WINKEL M ELSE SW*(1)="SEIT 
E" 

470 IF ASC(B*)<68 THEN SW*(2 
)="WINKEL" ELSE SW*(2)-"SEIT 
E" 

480 IF ASC(C$)<68 THEN SW*(3 
) = 11 WINKEL" ELSE SW*(3)="SEIT 
E" 

490 FOR Z=1 TO 3 
500 IF SW*(Z) = " WINKEL" THEN 
GC* (Z ) =" 1 " ELSE GC*(Z)="cm" 
510 NEXT Z 

520 CALL CLEAR :: DISPLAY AT 
(1,1):"Bitte geben Sie die W 
erte": :"ein :" 

530 DISPLAY AT(5, 1) I SW*(1 )J " 
";A$;TAB(17+GENAU)}GC*(1):: 
ACCEPT AT(5,10)VALIDATE(NUN 
ERIC)BEEP SIZE(6+GENAU):SW(1 
):: X*1 :: GOSUB 1640 
540 DISPLAY AT<7,1):SW*<2) j " 
“JB*; TAB(17 + GENAU);GC*(2):: 
ACCEPT AT(7,10)VAL IDATE(NUM 
ERIC)BEEP SIZE(6+GENAU):SW(2 
):: x=2 :: gosub 1640 
550 DISPLAY AT(9,1) :sw*(3) ;" 
";C$;TAB(17+GENAU);GC*(3):: 
ACCEPT AT(9,10)VALIDATE(NUM 
ERIC)BEEP SIZE(6+GENAU):SW<3 
):: x=3 :: gosub 1640 
560 ! 

570 IF SW*(1)=SW*(2)AND SW*( 
2)=SW*(3)AND SW*(3)="SEITE" 
THEN 660 

580 IF " WINKEL"=SW*(1)AND SW 
* (1) =SW$ (2) OR"WINKEL"=SW$ (2) 
AND SW*(2)=SW$(3)OR"WINKEL" = 
SW* < 3)AND SW*(3)“SW*(1)THEN 
590 ELSE 620 


590 FOR Z=1 TO 

3 : : 

FOR 

Zl = l 

TO 3 





600 IF SZ$(Z)=" 

A" AND 

SZ*(Z1 

)«"a" OR SZ*(Z) 

«"B" 

AND 

SZ*( 

Z1)■ " b " OR SZ*(Z)«" 

C" 

AND SZ 

* ( Z1) = "c" THEN 

790 




610 NEXT ZI :: 

0 1020 

NEXT 

Z 

• • 
■ ■ 

GOT 

620 FOR Z=1 TO 

3 : : 

FOR 

N 

»-*■ 

II 

TO 3 





630 IF SZ*(Z)=" 

A" AND 

SZ*(Z1 

)=" a " OR SZ*(Z) 

= " B " 

AND 

SZ*( 

Z1 )=" b " OR SZ*(Z)=" 

C" 

AND SZ 

*( Z1 )=" c " THEN 

1170 




640 NEXT ZI :: 

NEXT 

Z 

# ■ 

GOT 


0 1370 
650 ! 

660 ! SSS 

670 ! 

680 IF A*="a" THEN SA=SW(1)E 
LSE IF B*="a" THEN SA=SW(2)E 


LSE SA*SW(3) 

690 IF A*="b“ THEN SB=SW(1)E 
LSE IF B$="b w THEN SB=SW(2)E 
LSE SB=SW(3) 

700 IF A*="c " THEN SC=SW(1)E 
LSE IF B*="c" THEN SC=SW(2)E 
LSE SC**SW < 3) 

710 X=(SB^2+SC^2-SA A 2)/<2*SB 
*SC):: X=-ATN(X/SQR(1-X*X)> + 
PI/2 :: ALPHA=X*180/PI 
720 X« <SC*2 + SA*2-SB*2>/<2*SC 
#SA) :: X«=-ATN(X/SQR(1-X*X) ) + 
PI/2 :: BETA*X*180/PI 
730 GAMNA=180-(ALPHA+BETA) 

740 CALL CLEAR II PRINT "3 S 
eiten gegeben (SSS):": : : : 
750 PRINT "SEITE a ="J:: PRI 
NT USING U*(2)ISA :: PRINT : 
"SEITE b -"j:: PRINT USING U 
*( 2): SB :: print : "Seite c *= 
"j:: PRINT USING u*(2):sc 
760 PRINT : :"WINKEL A =";: : 

PRINT USING U*(1):ALPHA II 
PRINT : "WINKEL B «=" \ : *. PRINT 

using u*(1):beta :: print : 

"WINKEL C e"j:: PRINT USING 
U*(1):GAMMA 

770 PRINT : : :: goto 1560 

780 ! 

790 ! WWS 

800 ! 

810 IF SW* ( 1 ) ="SEITE" THEN W 
i=sw<2):: wi*=sz*(2):: W2=sw 
(3):: W2$=sz*(3):: goto 
830 ELSE IF SW* < 2)="SEITE" T 

hen wi»sw<i):: wi*=sz*(l):: 
W2=sw(3):: W2$=sz*(3):: goto 
830 

820 wi=sw(l):: wi*=sz*(i):: 

W2=SW(2):: W2*=SZ*(2) 

830 W3=180-(W1+W2):: IF Wl*< 
>"A" AND W2*<.>"A" THEN W3*-" 
A" ELSE IF Wl*< >"B" AND W2*< 
>"B" THEN W3*-"B" ELSE W3*« H 
C" 

840 FOR Z=1 TO 3 :: FOR Zl=l 
TO 3 

850 IF SZ*(Z)="A" AND SZ*(Z1 
)«"*" THEN x*-"a H :: xi-z :: 
X2°Z1 ELSE IF SZ*(Z)-"B" AN 
D SZ*(ZI>“"b" THEN X*«"b" :: 
xi=z :: X2«zi else if sz*<z 

= "C" AND SZ* <Z1) “ n c M THEN X 
*="c" :: xi=z ::X2=zi 
860 NEXT ZI :: NEXT Z 
870 IF SW(X1)=W1 THEN GES1=W 
2 :: GES2*W3 ELSE IF SW<X1)- 
W2 THEN GES1-W1 :: GES2-W3 E 
LSE GES1-W1 :: GES2-W2 
880 GES1=SW(X2)*SIN<GRAD(GES 
1))/SIN(GRAD(SW(Xl))>:: GES2 
=SW(X2)*SIN(GRAD(GES2))/SIN( 
GRAD(SW(XI))) 


m 
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890 IF GES1< GES2 THEN 900 EL 
SE WARTE-GES1 : l GES1=GES2 *. 

: GES2»WARTE 

900 CALL CLEAR :: PRINT "1 S 
eite und 2 Winkel ": :"gegeb 
en (WWS):: : 

910 PRINT SW$(1)J* "jSZ*(l)i 
:: PRINT USING U*( (SW$(1)="W 

inkel")+ 2);sw< l):: print :sw 

*(2)|" " |SZ$(2) i:: PRINT ÜSI 
NG U$((SW$(2) WINKEL") +2) :S 
W<2) 

920 PRINT :SW$(3);" ";sz$<3) 
i:: PRINT USING U$((SW*(3)*" 
WINKEL")+2):SW(3) 

930 FÜR Z=1 TO 3 

940 IF SZ$(Z)=X$ THEN 950 EL 

SE IF SZ$(Z)“"A" THEN ALPHA* 

0 ELSE IF SZ$( Z ) = " B " THEN BE 

TA=0 ELSE GAMMA=0 

950 NEXT Z 

960 IF ALPHA=1 THEN W$="A" E 
LSE IF BETA*1 THEN W*-"B" EL 
SE W$="C" 

970 IF W1$=CHR$(ASC(X$)-32)T 
HEN IF W2<W3 THEN SA$=CHR$(A 
SC(W2$)+32)ELSE SA$=CHR$(ASC 
<W1$)+32) 

980 SB$=CHR$(ASC(W3$)+32) 

990 PRINT *: : "WINKEL "?w$;:: 

PRINT USING U$(1) :W3 :: PRI 
NT :"SEITE "iSA$j:: PRINT US 

ing u$(2):gesi :: print : h se 

ITE "JSB$j:: PRINT USING U$ ( 
2)IGES2 

1000 print : :: goto 1560 

1010 ! 

1020 ! WSW 

1030 ! 

1040 IF SW$(1) = "SEITE" THEN 

wi-sw(2):: wi«-sz*(2):i W2-s 
w(3):: W2*=sz*<3):: goto 830 
ELSE IF SW4> (2) “"SEITE" THEN 

wi-swm:: wi*=sz$(i):: W2= 
sw<3):: W2*-sz*(3):: goto 10 
60 

1050 W1=SW(1):: wi$=sz*(i):: 
W2=*sw ( 2 ):: W2$=sz$ ( 2 ) 

1060 W3=180-<W1+W2):: IF Wl$ 
<>"A" AND W2$< >"A" THEN W3*= 
“A" ELSE IF W1*<>*B" AND W2$ 
<>"B■ THEN W3$="B" ELSE W3$= 
"C* !,*■, 

1070 FOR Z=1 ;TO 3 
1080 IF SZ$(Z)= "a" AND W3$=" 
A" THEN X$="a" :: X1*Z ELSE 
IF SZ$<Z)e"b". AND W3$="B" TH 
EN X*-"b M :: Xl-Z ELSE IF SZ 
$(Z)- H c" AND W3$»"C" THEN X$ 
= "c" :: xi=z 
1090 NEXT Z 

1100 GES1=SW <X1)*SIN(GRAD(W1 
))/SIN(GRAD(W3)):: GES2«SW(X 


1)#SIN<GRAD(W2)>/SIN(GRAD(W3 
) ) 

1110 CALL CLEAR :: PRINT "1 
Seite und 2 anliegende": : "W 
inkel gegeben (WSW):": : : : 
1120 PRINT SW$(1)J" "JSZ*(1) 

\:: PRINT USING U*((SW*<lf=" 

Winkel")+ 2):sw(l):: print :s 
W$ (2) 5 " "|SZ$(2)j:: PRINT US 
ING U$((SW$(2)="WINKEL")+2): 
SW (2) 

1130 PRINT :SW$(3)J" ";sz$(3 
)?:: PRINT USING U*((SW$(3)= 
"WINKEL")+2)ISW(3) 

1140 PRINT : :"WINKEL ";W3*J 

:: PRINT USING U$(1):W3 :: P 
RINT :"SEITE "JCHR*(ASC(W1$) 
+32)::: print using u$(2):ge 
si :: print :"SEITE ";chr*<a 

SC<W2$)+32)J:: PRINT USING U 
*(2):GES2 

1150 PRINT : :: GOTO 1560 

1160 ! 

1170 * SSW 

1180 ! 

1190 L=0 :: FOR Z=1 TO 3 
1200 IF SW$(Z)= M SEITE" THEN 
1210 ELSE W1$=SZ$(Z):.* W1=SW 
(Z):: SX$=CHR$(ASC(Wi$)+32) 
1210 NEXT Z 
1220 FOR Z=1 TO 3 
1230 IF SW$(Z)="WINKEL" THEN 
1240 ELSE IF SZ$(Z)=SX$ THE 
N X1=Z ELSE X2=Z :: W2$=CHR$ 
<ASC(SZ$(Z))-32) 

1240 NEXT Z 

1250 IF Wi$="A" AND W2$="B" 
OR W1$*"B" AND W2i="A" THEN 
W3$="C" ELSE IF Wi$="A" AND 
W2*="C" OR W1S="C" AND W2$=" 
A" THEN W3$«"B" ELSE W3*="A" 
1260 W2=SW(X2)*SIN(GRAD(W1)) 
/SW(X1):: W2*ATN <W2/SQR(1-W2 
#W2))#180/PI :: W21-180-W2 
1270 IF SW(X1)>SW(X2)THEN IF 
W1<W2 THEN W2=W21 :: GOTO 1 
290 ELSE IF W21<W2 THEN PRIN 
T "2 LOESUNGEN" :: CALL SOUN 
D(-100,660,4,662,8):: L=2 :: 
GOTO 1290 

1280 IF SW(XI)<SW(X2)THEN IF 
W1>W2 THEN W2=W21 ELSE IF W 
21>W2 THEN PRINT "2 LOESUNGE 
N" :: CALL SOUND(-100,660,4, 
662,8 ):i L=2 
1290 W3=180-< W1+W2) 

1300 SC=SW(XI)#SIN(GRAD(W3)) 
/SIN(GRAD <W1)) 

1310 CALL CLEAR :: PRINT "2 
Seiten und 1 gegenueberl.": 

:"Winkel gegeben (SSW):": : 

• 

■ 

1320 PRINT SWS<1)5" " 


:sz*(i) 





f:: PRINT USING U*((SW*<1)«" 
WINKEL")+2):sw(l):: PRINT :s 
W$<2)|" "|SZ$<2)?:: PRINT US 
ING U*(<SW$(2)«"WINKEL")+2) : 
SW (2) 

1330 PRINT :SW$(3)J" "»SZ$<3 
)?:: PRINT USING U*((SW$<3)* 
"WINKEL")+2):SW(3):I PRINT I 

1340 PRINT "WINKEL ";W2$j:: 
PRINT USING U$(1):W2 :: PRIN 
T :"WINKEL "jW3*j:: PRINT US 
ING U$<1>:W3 :: PRINT :"SEIT 
E ";chr$<asc<W3*)+32)5:: PRI 
nt using u$( 2 ):sc :: print 
1350 IF L<2 THEN 1560 ELSE P 
RINT : : "Zweite Loesung (j/n 

) ?": :: ACCEPT VALIDATE<" jn 

jn 11 ) eeep size(1):a* :: if a* 

="j" OR A£="J" THEN W2=W2i : 

: l =0 :: goto 1290 else if a 

$ *" N" OR A$*"n" THEN CALL CL 
EAR :: GOTO 1560 ELSE 1350 
1360 ! 

1370 ! SWS 

1380 ! 

1390 FOR Z=1 TO 3 
1400 IF SW$( Z ) = "SEITE" THEN 
1410 ELSE W1=SW(Z):: W1*=SZ* 
<Z >:: SC$=CHR$(ASC<W1$>+32) 
1410 NEXT Z 

1420 X=0 :: FOR Z = i TO 3 
1430 IF SW$(Z)="WINKEL" THEN 
1440 ELSE X a =X+1 ü IF X* 1 T 
HEN Xi=Z ELSE X2=Z 
1440 NEXT Z 

1450 SC=SQR(SW(X1) A 2+SW(X2) A 
2-2*SW <X1)*SW(X2)*COS(GRAD(W 
1 ) ) ) 

1460 W2= (SW(X2) A 2+SC A 2-SW (XI 
) A 2)/(2*SW(X2)*SC):: W2=(-AT 
N(W2/SQR(i-W2*W2))+PI/2)*180 
/PI 

1470 W3=180-(W1+W2) 

1480 W2$=CHR*(ASC(SZ$(X1))-3 
2):: W3$=CHR$(ASC(SZ*(X2))-3 
2) 

1490 CALL CLEAR :: PRINT "2 
Seiten und der eingeschl.": 

:"Winkel gegeben (SWS) :": : 

• .• 

9 

1500 PRINT SW$(1)J" N iSZ*(l) 
s:: PRINT USING U$<<SW$<1)=" 
Winkel")+ 2):sw<l):: print :s 
w$( 2 )j" "jsz$( 2 )i:: print us 

ING U$(<SW$<2h="WINKEL")+2): 
SW (2) 

1510 PRINT :SW$(3)J" "iSZ$(3 
>{:: PRINT USING U$((SW$(3)- 
"WINKEL")+2):SW(3) 

1520 PRINT : :"SEITE "jsc$j: 
: print using u*<2):sc :: PR 

INT :"WINKEL "|W2*i:: PRINT 


using u*(i):W2 :: print :"Wi 
NKEL "|W3*f:: PRINT USING U* 
(l):W3 :: PRINT 

1530 i 

1540 ! Programm Ende ? 

1550 ! 

1560 PRINT :"Irgendeine Tast 
e druecken !": E = Ende 

D = Dreieck" 

1570 CALL KEY <0,K,S):: IF S= 

I THEN IF K=69 OR K=101 THEN 
1580 ELSE IF K=68 OR K=100 

THEN CALL DREIECK<Fl)I: GOTO 
1560 ELSE CALL CLEAR :: CAL 
L SOUND <-1001880,4,882,8)11 
GOTO 380 ELSE 1570 
1580 CALL CLEAR :: PRINT "So 

II das Programm geloescht": 

:"werden (j/n) ?"! • •• ACCE 

PT VALIDATE("j JnN")SIZE(1)BE 
EP:A* :: IF A$="J" OR A*="j" 
THEN 1600 ELSE IF A$="N" OR 
A*="n" THEN 1590 ELSE 1580 
1590 CALL CLEAR :: CALL SOUN 
D<-100,110,4,112,6):: CALLS 
OUND(-100,111,5,113,8):: END 
1600 PRINT : : :"Sind Sie si 

ch sicher ?": : :: ACCEPT VA 

LIDATE("JNj n")SIZE(1)BEEPIA$ 
:: IF A$="j" OR A$*"J" THEN 
1610 ELSE 1590 
1610 ON ERROR 1630 
1620 RUN "LOESCHEN" 

1630 print ::::::::: 

: : : :"Das Programm ist ge 

loescht.": :"Der Computer is 
t im": :"Eingabe - Modus.": 

:::::::: end 

1640 ! 

1650 ! E i ngabe--f eh 1er ? 

1660 ! 

1670 IF SW$(X)="WINKEL" THEN 
1690 

1680 IF SW(X)<=0 THEN DISPLA 
Y AT<12,1) : "Eingabe-fehler !" 

:: call sound(-100,110,2):: 

CALL W :: GOTO 490 ELSE RET 
URN 

1690 IF SW(X)<=0 OR SW(X)>=1 
80 THEN DISPLAY AT(12,l):"Ei 
ngabe-f eh 1er ! M : : CALL SOUND 
(-100,110,2):: CALL w :: GOT 
0 490 ELSE RETURN 
1700 CALL SOUND(-100,110,0): 

: CALL SOUND(-100,110,4):: P 
RINT : : : :"Keine Loesung ! 
": : :"Dieses Dreieck ist ni 
cht": :"moeglieh !!!": : : : 

: : :: call w :: goto 340 
1710 ! 

1720 ! Unterprogramme 
1730 ! 

1740 SUB W :: FOR Z=1 TO 500 


1 » 
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:: :ne'xt z : subend 

1750 SUB DREIECK(Fl) 

1760 CALL CLEAR :: CALL COLO 
R<13,2,l')s: CALL SOUND (-100, 
440,4,442,6):: CALL SOUND(-l 
00,220,5,222,7):: CALL SOUND 
(-100,660,6,662,8) 

1770 CALL HCHAR(1,16,132):: 
FOR Z=2 TO 10 :: CALL HCHAR( 
Z,17-Z,128):: CALL HCHAR <Z,1 
8-Z,130):: CALL HCHAR(Z,14+Z 
,131):: CALL HCHAR(Z,15+Z,12 
9):: NEXT Z 

1780 CALL HCHAR(11,6,133) : : 
CALL HCHAR(11,26,134):: CALL 
HCHAR(11,7,135,19) 

1790 CALL SPRITE(#1,67,Fl,2* 
8-5,16*8-7,0,0,#2,65,Fl,11*8 
-9,7*8-2,0,0,#3,66,Fl,11*8-9 
,25*8-10,0,0) 

1800 CALL HCHAR(5,11,98) : : C 
ALL HCHAR(5,21,97):: CALL HC 
HAR(12,16,99) 

1810 DISPLAY AT(14,1):"Wenn 
3 beliebige Stuecke....gegeb 
en werden, berechnet... der c 
omputer die uebrigen 3 Stuec 
ke. " 

1820 DISPLAY AT(18,1):"Es mu 
ss immer mind. 1 Seite gegeb 
en sein, bei der Ein-..gäbe 
von 2 Seiten und 1 Win-kel s 
ind manchmal 2 Loesun- gen m 
oeglich." 

1830 DISPLAY AT<24,1):"Irgen 
deine Taste druecken !" 

1840 CALL KEY(0,K,S):: IF S< 
>1 THEN 1840 ELSE CALL CLEAR 
:: CALL DELSPRITE(ALL):: SU 
BEXIT 

1850 SUBEND 


10 

i 

********************** 

11 

i 

* 

BESCHRIFTUNGEN 

* 

12 

i 

* 

< Subprogramm) 

* 

13 

i 

* 


* 

14 

i 

* 

Copyright by 

* 

15 

i 

* 


* 

16 

i 

* 

B. Woei -fei Schneider 


17 

i 

* 


* 

19 

i 

* 

Benoetigte Geraete 

* 

20 

i 

* 

TI99/4A Konsole 

* 

21 

i 

* 

Ext. Basic 

* 

22 

; 

* 


* 

26 

i 

* 

Speicherbelegung 

* 

27 

i 

* 

3010•Bytes 

* 

28 

i 

* 


* 

29 

i 

********************** 


100 ! DEMONSTRATIONSPROGRAMM 
110 CALL CLEAR :: FOR 1=1 TO 
4 :: READ W*,ZE,SP,GR,Fl,F2 
:: CALL SCHRIFT<W$,ZE,SP,GR 
,Fl,F2):: NEXT I 
120 FOR 1=1 TO 1000 :: NEXT 
I :: CALL CLEAR 
130 FOR 1=1 TO 8 :: READ W$, 
ZE,SP,GR,Fl,F2 :: CALL SCHRI 
FT <W$,ZE,SP,GR,F1,F2):: NEXT 
I 

140 FOR 1=1 TO 1000 :: NEXT 
I 

150 DATA BW,1,13,3,7,1,SOFTW 
ARE,6,4,3,7,1,1985,13,3,4,16 
,1,PRAESENTIERT,23,4,2,5,1 
160 DATA BUCHSTABEN,1,2,3,7, 
1,UND,6,14,2,16,1,ZEICHEN,9, 
6,3,7,1 

170 DATA VIER VERSCHIEDENE G 
ROESSEN,15,4,1,5,1,A,24,3,1, 

5.1, A,23,9,2,16,1,A,21,15,3, 

7.1, A,17,23,4,6,1 

180 CALL SCREEN(2):s CALL CL 
EAR 



190 DISPLAY AT(4,4):"JE NACH 
VERWENDUNG DER" s: DISPLAY 
AT(6,4):"ZEICHENSAETZE FUER 
DIE " :: DISPLAY AT(8,4):"KL 
EINBUCHSTABEN KOENNEN" 

200 DISPLAY AT(10,4):"DURCH 
DIE EINGABE VON " :: DISPLAY 
AT(12,4):"KLEINBUCHSTABEN I 
N DEN" :: DISPLAY AT(14,4)s" 
DATAZEILEN NOCHMALS" 

210 DISPLAY AT<16,4>:"VIER Z 
WISCHENGROESSEN" s: DISPLAY 
AT(18,4):"DARGESTELLT WERDEN 

fl 

220 CALL SCREEN(8) 

230 FOR 1=1 TO 3000 :: NEXT 
I :: CALL CLEAR :: END 
240 SUB SCHRIFT (W$,ZE,SP,GR, 
Fl,F2) 

250 ON ERROR 690 

260 ON GR GOTO 270,310,440,5 

70 




270 ! SCHIRFT GROESSE 1 

280 FOR 1=5 TO 8 :: CALL COL 

0R(I,F1,F2)ss NEXT I 

290 FOR 1 = 1 TO LEN <W$):: CAL 

L HCHAR(ZE,SP—1+1, ASC(SEG$(W 

* f I , 1)))s s NEXT I 

300 SUBEXIT 

310 ! SCHRIFT GROESSE 2 
320 DIM H$(15) 

330 ZZ—MAX <96,ZZ) 

340 GG$="000003030C0C0F0F303 

033333C3C3F3FC0C0C3C3CCCCCFC 

FF0F0F3F3FCFCFFFF" s: FOR 1= 

0 TO 15 :: H*(I)=SEG$<GG*,I* 

4+1,4):: NEXT I 

350 FOR 1=9 TO 14 :: CALL CO 

LOR(I,Fl,F2):: NEXT I 

360 FOR 1 = 1 TO LEN <W$>:: CAL 

L CHARPAT<ASC<SEG*(W$,I,1)), 

F*):: NS$="" 

370 FOR J=1 TO 15 STEP 2 :: 
GOSUB 420 :: NEXT J :: FOR J 
=2 TO 16 STEP 2 :: GOSUB 420 
:: NEXT J 

380 CALL CHAR(ZZ,NS*):: SP1= 
SP+I*2 

390 CALL HCHAR,< ZE, SP 1 —2, ZZ) : 

: CALL HCHAR(ZE+1,SP1-2,ZZ+1 
):: CALL HCHAR(ZE,SP1-1,ZZ+2 
):: CALL HCHAR<ZE+1,SP1-1,ZZ 

+3) 

400 ZZ=ZZ+4 :: IF ZZ>140 THE 
N ZZ=96 

410 NEXT I :: SUBEXIT 
420 NH=ASC(SEG*(F$,J,1)):: I 
F NH<58 THEN NH=NH-48 ELSE N 
H=NH—55 

430 NS$=NS$ScH$ (NH) : : RETURN 
440 !SCHRIFT GROESSE 3 
450 A$="0F0F0F0F" :: B$= M F0F 
0F0F0" :: C$="FFFFFFFF" :: D 
$= •• 00000000 " s : G$= " 12345678 
9ABCDEF" 

460 CALL CHAR < 33,A$&D$&B$&D$ 
&C*&D$&D*&A$, 37, A$&A$&B*&A$& 
C*&A$ScD*&B* ,41, A*&B*&B$&B$&C 
$&B$&D*$<C$, 45 , A*&C*&B$&C:*«<C* 
&C$) 

470 CALL COLOR(1,F1,F2,2,F1, 
F2) 

480 FOR 1=1 TO LEN(W*>:: CAL 
L CHARPAT(ASC(SEG$( W$,1,1)), 
F*) 

490 FOR J=1 TO 4 :: AB=0 :: 
T1=P0S(G$,SEG$(F$,J*4-3,1>,1 
):: T2=P0S(G*,SEG*(F$,J*4-l, 
1) , 1) : : GOSUB 520 
500 AB=2 :: T1=P0S<G*,SEGS<F 
*,J*4-2,1),1):: T2=P0S(G*,SE 
G*(F*,J*4,1),1):: GOSUB 520 
510 NEXT J :: NEXT I :: SUBE 
X IT 

520 TT1,TT2=0 :: TT1=<<T1 AN 


D 4)+(TI AND 8>)/4+(T2 AND 4 
>+<T2 AND 8):: TT2=(T1 AND 1 
)+(TI AND 2)+4*((T2 AND l)+( 
T2 AND 2)) 

530 SP1=SP+I*3+AB 

540 IF TT1>0 THEN CALL HCHAR 

(ZE-1+J,SP1-3,32+TT1) 

550 IF TT2>0 THEN CALL HCHAR 
(ZE-1+J,SP1-2,32+TT2) 

560 RETURN 

570 ! SCHRIFT GROESSE 4 
580 CALL COLOR(4,F1,F2) 

590 CALL CHAR(63,"FFFFFFFFFF 
FFFFFF"):: FOR 1=1 TO LEN(W$ 
>:: CALL CHARPAT(ASC(3EG$(W$ 
,1,1)),F*) 

600 AB=0 :: FOR J=1 TO 15 ST 
EP 2 :: GOSUB 620 :: NEXT J 
:: AB=4 :: FOR J=2 TO 16 STE 
P 2 :: GOSUB 620 :: NEXT J : 

: NEXT I 
610 SUBEXIT 

620 T=ASC(SEG*(F*,J,1)):: IF 
T=48 THEN RETURN ELSE IF T< 
58 THEN T=T—48 ELSE T=T-55 
630 ZEl=ZE-l+J/2 :: SP1=SP+I 
*6+AB 

640 IF T AND 8 THEN CALL HCH 
AR(ZE1,SP1—6,63) 

650 IF T AND 4 THEN CALL HCH 
AR(Z E1,SP1—5,63) 

660 IF T AND 2 THEN CALL HCH 
AR(ZE1,SP1—4,63) 

670 IF T AND 1 THEN CALL HCH 
AR(ZE1,SP1—3,63) 

680 RETURN 
690 SUBEND 


Machen Eis und Schnee 
sich breit, ist der 
Winter nicht mehr weit 
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10 ! ********************** 


11 ! * * 

12 ! * KURVENDISKUSSION * 

13 ! * * 

14 ! * Copyright by * 

13 ! * * 

16 ! * Dieter Taube * 

17 ! * * 

19 ! * Benoetigte Geraete * 

20 ! * TI99/4A Konsole * 

21 ! * Ext. Basic * 

22 ! * (opt. Drucker) * 

23 ! * * 

26 ! * Speicherbelegung * 

27 ! * 7938 Bytes * 

28 ! * * 


29 ! ********************** 
100 GOTO 130 
110 GOTO 280 

120 REM Vorspann, Erlaeuteru 
ngen 

130 CALL CHAR<123,"000044384 
47C4444000044384444443800004 
40044444438000038447844784", 
64,"3C4299A1A199423C") 

140 DISPLAY AT(5,6)ERASE ALL 
:"KURVENDISKUSSION" :: DISPL 
AY AT(7,6):"G..taube,rinteln 
“ :: CALL HCHAR <8,8,95,16) 
150 CALL KEY<3,K,S)i: ON WAR 
NING NEXT :: DISPLAY AT<22,5 
):"Bedienungshinweise ? N" : 

: ACCEPT AT(22,26)SIZE <-1)BE 
EP: B* 

160 IF B*<>"J" THEN 240 ELSE 
DISPLAY AT<10,1)ERASE ALL:" 
Die gew<hlte Funktion mu v 
in das Programm geschrieben 
werden." 

170 DISPLAY AT<15,1):"Die In 
tervallgrenzen werden in bei 
iebiger Reihen-folge. . .ohne K 
omma eingegeben." :: DISPLAY 
AT <24,27)BEEP:">>" 

180 CALL KEY<0,K,S):: IF NOT 
S THEN 180 

190 DISPLAY AT(2,1)ERASE ALL 
:"G)ltige Funktionsnamen sin 
d:": : : 

200 DISPLAY AT <5,2):"INT(X). 

.SIN(X)...ARCSIN <X)": SGN 

<X)..cos<X).. .arccos(X)*: 

ABS (X) . . TAN (X) . ARCTAN (X) " 

210 DISPLAY AT(11,2):"SQR(X) 

..cot(X)...arccot<X) 

EXP(X)..SINH(X)..ARSINH(X)": 

:" LN(X)...COSH <X)..ARCOSH < 
X) " 

220 DISPLAY AT <18,2):"LG <X). 
..TANH <X)..ARTANH(X)“ :: DIS 
PLAY AT(20,10)BEEP:"COTH<X). 

.ARCOTH <X)": : :"Konstante: 
PI und E" 


230 DISPLAY AT (24,27 ) i " > >•" : 

: CALL KEY(0,K,S):: IF S-0 T 
HEN 230 ELSE CALL CLEAR 
240 DISPLAY AT<20,5>:"Editie 
re Zeile 640" :: DISPLAY AT< 
22,5)BEEP:"Neustart mit RUN 
110" :: STOP 
250 ! 

260 REM PROGRAMMBEGINN • 

270 ! 

280 OPTION BASE 1 :: DIM YY< 
32),Z*<24) 

290 ! 

300 REM Funktionsterm wird v 
om Bildschirm abgelesen 
310 REM und im String F« ges 
peichert 
320 ! 

330 FOR J=22 TO 20 STEP -1 : 

: for 1=3 to 5 :: call gchar 
<j,i,A):: B$=B$kCHR$(A):: ne 
XT I :: IF B«="640" THEN 350 
340 B«="" :: NEXT J 
350 FOR 1=11 TO 30 :: CALL G 
CHAR < J,I,A):: IF A=32 THEN 3 
60 ELSE F«=F$&<CHR«(A) 

360 NEXT I :: IF J=22 THEN 4 
00 

370 FOR 1=3 TO 30 :: CALL GC 
HAR <J + l,I,A)I: IF A=32 THEN 
400 ELSE F$=F*kCHR*(A) 

380 NEXT I :: IF J=20 THEN J 
-21 :: GOTO 370 
390 REM Zeichende-f ini tionen 
■fuer Achsenkreuz: 

400 CALL CLEAR :: CALL CHAR< 
138, RPT* <" 18", 8) lc " 000000FFFF 
000000181818FFFF181818",35," 
00001E203E201E",142,"00"fe<RPT 
«<" 10 ", 6 )) 

410 CALL CHARPAT(42,A«,45,B« 
f; : CALL CHAR<128,A«,141,B«) 
:: CALL COLOR(13,13,1,14,16, 
1) 

420 ! 

430 REM VERFUEGBARE FUNKTION 
EN 

440 ! 

450 DEF LN(X)=LOG(X) 

460 DEF LG(X)=LOG(X)/LOG <10) 
470 DEF COT <X)=1/TAN(X) 

480 DEF ARCSIN<X)=ATN(X/SQR< 
1-X*X)) 

490 DEF ARCCOS(X)=-ATN(X/SQR 

<1-X*X)J+PI/2 

500 DEF ARCTAN(X)=ATN(X) 

510 DEF ARCCOT(X)=PI/2-ATN(X 
) 

520 DEF SINH(X)=(EXP(X)-EXP( 
-X))/2 

530 DEF COSH(X)=(EXP(X)+EXP( 
-X))/2 

540 DEF TANH < X)=-2*EXP(-X)/< 





EXP(X)+EXP < -X))+1 _ - - 

550 DEF COTH(X)=2*EXP <-X)/(E 

XP (X)-EXP <-X))+1 

560 DEF ARSINH(X)«LOG(X+SQR( 

X*X+1)) 

570 DEF ARCOSH(X)=LOG(X+SQR( 
X*X-1>) 

580 DEF ARTANH (X)«LOG < <1+X)/ 
(l-X))/2 

590 DEF ARCOTH(X)«LOG(<X+1) / 
(X-l))/2 
600 E=EXP(1) 

610 !*********************** 
620 !HIER DIE ZU UNTERSUCHEN 
DE FUNKTION EINSCHREIBEN: 

630 ! '• 

640 DEF F(X)=MIN(E A X,1/X) 

650 ! 

660 ! *********************** 
670 REM ABLEITUNGEN : 

680 DEF F1(X)=(F<X+.000001)- 
F (X))/.000001 

690 DEF F2(X)=(Fi(X+.000001) 
-Fl(X))/.000001 
700 ! 

710 REM FUNKTIONSGRAPH 
720 ! 

730 REM au-f dem Bildschirm 
740 CALL INTERVALL<L,R,U,0)! 

Eingabe der Interval 1 grenze 
n 

750 CALL KREUZ(L, R, U, 0,X00,Y 
00,INT$)!Koordinatenkreuz 
760 DISPLAY AT <1,1)SIZE <LEN( 
F$)):F* 

770 REM Berechnung der Funkt 
ionswerte im gewaehlten Inte 
rval 1 

780 DX=(R-L)/32 .'Schrittweit 
e 

790 DY« (0-U) /23 IMasstab -fue 
r Funktionswerte-Ausdruck 
800 X=L-DX/2 ! An-f angsste 11 e 
810 ON ERROR 1820 :: FOR 1=2 
TO 32 

820 X=X+DX 

830 IF F (X) >=0 OR FIXXU THE 
N YY(I)=0 :: GOTO 860 
840 YY(I)=23*0/(O-U)-INT(F(X 
)/DY+.5)!gerundete y-Werte 
850 CALL VCHAR(YYd),I,128) 
860 NEXT I 

870 DISPLAY AT(24,1):"Drucke 
n ? N" :: ACCEPT AT(24,11)SI 
ze<-1)beep:q* :: druck«<q$=" 

J")+(Q$="j"> 

880 IF NOT DRUCK THEN 1030 E 
LSE DISPLAY AT<24,1):INT$ 

890 ! 

900 REM Graph mit dem Drucke 
r 

910 ! 

920 REM Koordinatensystem, z 


eilenweise: 

930 FOR 1=1 TO 23 :: Z*d)=R 
PT*(" " | 2-X-X00-4) k" I " &RPT< ( * 
M ,65-2*X00):: NEXT I !y-Achs 
e 

940 Z$(Y00)=RPT$("- M ,2*X00-4 
) 6«" + "fctfRPT$ ( " - M , 65-2*X00) ! x-A 
chse 

950 REM Funktionswerte werde 
n in die Druckzeilen einge-fu 
egt 

960 FOR 1=2 TO 32 :: IF YY<I 
)>0 THEN Z*(YY(I))=SEG$(Z$<Y 
Y(I) ) , l l 2*I-4)6c' , * M 8<SEG*<Z$<Y 
Y(I)),2*1-2,64-2*1) 

970 NEXT I 

980 (Y00) =Z$ (Y00) > x" ! M 

arkierung x-Achse 
990 CALL HARDCOPY<X00,F$,INT 
*,Z$ ()) 

1000 ! 

1010 REM Neues Intervall pro 
bieren ? 

1020 ! 

1030 DISPLAY AT(24,1)BEEP: M C 
13 Intervall C23 Auswertung" 
1040 CALL KEY <0,K,S) :: IF S= 
0 THEN 1040 :: IF K=49 THEN 
DISPLAY AT(24,1):"(bisher: " 
iINT$;")" :: goto 740 
1050 CALL CLEAR :: PRINT F %: 

:"im Intervall C"|STR*(L)f n 
,"f STR$(R)r3": :RPT*(CHR*(1 
39),28): : : 

1060 ! 

1070 REM FUNKTIONSANALYSE- 

1080 ! 

1090 REM NULLSTELLEN 

1100 Y,IND=0 :: ON WARNING N 

EXT.:: OPEN #5:“RS232" 

1110 ON ERROR 1830 :: FOR X= 
L TO R STEP DX :\ YALT=Y :: 
Y=F(X) 

1120 IF Y< >0 AND Y*YALT>=0 T 
HEN 1280 Ikein Vorzeichenwec 
hsel 

1130 IND=1 :: PRINT "Nullste 
11 e " S 

1140 IF Y=0 THEN XN=X :: W$= 
"genau " :: GOTO 1220 
1150 X0=X-DX :: X1=X ünterv 
all um.die Nullstelle 
1160 IF ABS(X0-X1)<1.E-9 THE 
N 1250 !Vorzeichenwechsel ka 
nn auch Polstel1e bedeuten 
1170 A=(X0+X1)/2 :: YM=F(A): 

: IF ABS(YM)>.000001 THEN 12 
00 

1180 XN=A :: IF YM=0 THEN W$ 
«"genau " ELSE W$="" 

1190 GOTO 1220 

1200 IF Y*YM>0 THEN X1=A ELS 

E X0=A !Interval 1 wird halbi 


» 
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ert 

1210 GOTO 1160 
1220 NST=INT(XN*100000+.5)/I 
00000 :: PRINT W$|"bei *5 NST 
1230 IF DRUCK THEN PRINT #5: 
TAB (8) J "Nul lstel le “|W$5 M bei 
"JNST 

1240 GOTO 1280 

1250 DISPLAY AT<24,l)s: PRIN 
T :INT(A#10000+.5)/10000|"is 
t Polstel le.": : 

1260 IF DRUCK THEN PRINT #5: 

:TAB(7)|INT(A*10000+• 5) /100 
005"ist.Polstelle“: : 

1270 REM es werden nur Pole 
mit Vorzeichenwechsel erkenn 
t ! 

1280 NEXT X 

1290 IF IND THEN 1340 ELSE A 
$=" ke i ne Nullstellen gefunde 
n" :: PRINT A$ 

1300 IF DRUCK THEN PRINT #5: 
TAB(8)5A$ 

1310 ! 

1320 REM EXTREMA 
1330 ! 

1340 Y,IND=0 :: PRINT : : : 

:: IF DRUCK THEN PRINT #5: : 

■ 

1350 ON ERROR 1840 II FOR X= 
L TO R STEP DX :: YALT=Y :: 
Y=F1<X) 

1360 IF ABS(Y)<1.E-5 OR Y*YA 
LT<0 THEN IND=1 :: GOSUB 147 
0 ELSE 1400 

1370 IF F21XN)>.00001 THEN W 
$="Minimum" ELSE IF F2(XN)<- 
.00001 THEN W*-"Maximum" ELS 
E GOSUB 1550 

1380 A*="(“6<STR$(INT<XN#1000 
00+. 5 ) /100000) lc n / " 8<STR* (INT < 
F (XN) *100000+. 5 ) /100000) 6c") 
ist :: PRINT A$ !Extrem 

punkt 

1390 IF DRUCK THEN PRINT #5: 
TAB<8MA$: : 

1400 NEXT X 

1410 IF IND=0 THEN A$= M keine 
Extrema gefunden" :: PRINT 
A$ 

1420 IF DRUCK THEN PRINT #5? 

TAB(8)|A*s : : 

1430 PRINT : keine weit 

eren Extrema —: :: GOTO 
1610 
1440 ! 

1450 REM Fallunterscheidung 
fuer F* <X)«0 
1460 ! 

1470 IF ABS(Y)<1.E-5 THEN XN 
=X :: RETURN !Extremum bei X 
N 

1480 REM Intervall um Extrem 


um verengen 

1490 X0=x-dx :: xi=x 

1500 A=(X0+X1)/2 :: YM=F1<A) 

:: IF ABS<YM)<1.E-5 THEN XN= 

A :: RETURN 

1510 IF Y*YM>0 THEN X1=A ELS 
E X0=A 

1520 GOTO 1500 
1530 REM Unterscheidung Extr 
emum/HorizontalWendepunkt du 
rch Betrachten 

1540 REM der Werte in der Um 
gebung der Stelle 
1550 IF Fl(XN+.0001)*F1(XN-. 
0001)>0 THEN W$="Satte 1punkt 
" :: RETURN 

1560 IF Fl(XN+.0001)<0 THEN 
W$= M Maximum" ELSE W$="Minimu 
m" 

1570 RETURN 
1580 ! 

1590 REM WENDEPUNKTE 

1600 ! 

1610 Y,ind=0 :: PRINT : : : 

1620 ON ERROR 1850 :: FOR X= 

L TO R STEP DX 

1630 YALT=Y :: Y=F2(X):: IF 

Y=0 AND YALT=0 THEN 1770 

1640 IF ABS(Y)>1.E-5 AND Y*Y 

ALT> 3 0 THEN 1770 

1650 IF ABS < Y)<1.E-5 THEN XN 

=X :: GOTO 1730 

1660 REM Eingrenzung durch i 

ortgesetzte Halbierung des I 

nterval1s 

1670 X0=x-dx :: xl=x 

1680 A=(X0+X1)/2 :: YM=F2(A) 

:: IF ABS(YM)<1.E-5 THEN XN® 

A :: GOTO 1730 

1690 IF Y*YM>0 THEN X1=A ELS 

E X0-A 

1700 IF ABS <X0-X1)<1.E-9 THE 

N 1770 ELSE 1680 

1710 REM Wendepunkt, -falls F 

*'<X) Nullstelle mit Vorzeich 

enwechsel besitzt 

1720 REM und nicht auch F*(X 

)*0 (Sattelpunkt) 

1730 IF F2(XN+.00001)*F2<XN- 
.00001) >0 OR ABS (Fl (XN) Xl.E 
-5 THEN 1770 

1740 IND=IND+1 :: IF IND=1 T 
HEN A*="Verdacht auf Wendepu 
nkt bei M :: PRINT A$: : 
1750 B$="("&STR$(INT(XN*1000 
00+ .5) /100000) 8c" / “fcSTR* (INT < 
F (XN) *100000+. 5) /100000) 8c") . 
." :: PRINT TAB(3)JB* !Wende 
punkt 

1760 IF DRUCK THEN PRINT #5: 
TAB(8)5A$5B$ 

1770 NEXT X I! CLOSE #5 
1780 END 
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| NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


rrio.s'ty 

I I MAGAZIN 

I l FÜR 

I I TI 99/4A 

JL M&ti pc 

REVUE 


• : . 


KOMMT REGELMASSIG 
ZU IHNEN 
INS HAUS 


Finden Sie Ihre TI REVUE nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder „Euer" 
Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze 60 DM liefern wir Euch per Post zwölf 
Hefte ins Haus (Ausland 80 DM). Einfach den 
Bestellschein auf der nächsten Seite ausschneiden 
- fotokopieren oder abschreiben, in einen Brief¬ 
umschlag und ab per Post (Achtung: Porto nicht 
vergessen). TI REVUE kommt dann pünktlich 
ins Haus. 


WICHTIGE RECHTLICHE 
GARANTIE! 

Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den 


Verlag widerrufen— Postkarte ge¬ 
nügt. Ansonsten läuft dieser Auf¬ 
trag jeweils für zwölf Ausgaben, 
wenn ihm nicht vier Wochen 
vor Ablauf widersprochen wird, 
weiter. 


DAS SUPER-SONDER¬ 
ANGEBOT: 

PRIVATE 

KLEINANZEIGEN 

KOSTENLOS! 


Das bietet Ihnen ab sofort die TI-REVUE: KLEIN¬ 
ANZEIGEN SIND KOSTENLOS FÜR PRIVATAN¬ 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver¬ 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief¬ 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele¬ 
fonnummer sollten acht Zeilen a 28 Anschläge nicht 
überschritten werden. 

* ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In¬ 


serenten, keine gewerblichen Anzeigen. Die kosten 
pro Millimeter DM 3,50 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes ab¬ 
hängig! 

Wir behalten uns vor, Anzeigen, die nicht zum The¬ 
menkreis des Heftes - Computer - gehören, nicht ab¬ 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeitenteils zu¬ 
läßt. 
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KASSETTEN¬ 

SERVICE 



/ Wollt Ihr nicht mehr seitenlange Listings eintip¬ 
pen? Dann benutzt unseren Kassetten-Service: Für 
ganze zehn DM - nur Vorkasse, keine Rechnung - 
keine Nachnahme - erhalten Sie alle angebotenen 
Listings des jeweiligen Heftes auf Kassette per Post 
ins Haus. Achtung: Bestellungen ohne Geld werden 
nicht bearbeitet! Lieferzeit: Inxler Regel zwei bis drei 
Wochen! Wichtig: Unsere Kassetten werden digital in 
einem Profistudio von einem Masterband gezogen, 
nicht irgendwie per Recorder runtergenudelt. Selbst¬ 
verständlich volles Umtauschrecht bei Nichtfunktio- 
nieren. 




i 


TI 


Ich nehme zur Kenntnis, 
daß die Belieferung 
erst beginnt, wenn die Abo- 
Gebühr dem Verlag 
zugegangen ist. 


TI REVUE 

Abo-Service 1/86 
Postfach 1107 

8044 UNTERSCHLEISSHEIM 


Coupon 

Ja, ich möchte von Ihrem Angebot 
Gebrauch machen. 

Bitte senden Sie mir bis auf Wider¬ 
ruf ab sofort jeweils die nächsten 


zwölf Ausgaben an untenstehende 
Anschrift. Sollte ich nicht vier 
Wochen vor Ablauf schriftlich 
kündigen, läuft diese Abmachung 
automatisch weiter. 


Name__ 

Vorname__ 

Straße/Hausnr.___:__ 

Piz/Ort __-__ 

Ich bezahle: 

□ per beiliegendem Verrechnungsscheck 

□ gegen Rechnung 

□ bargeldlos per Bankeinzug von meinem Konto 

bei (Bank) und Ort__ 

Kontohummer_____ 

Bankleitzahl_ 

(stehtaufjedem Kontoauszug) . 

Unterschrift____ 

Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 

Unterschrift__ 

cs 
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RESERVIERUNGS- 

SERVICE 

Assembler bietet dem, der damit umgehen kann, viele 
Möglichkeiten. Andererseits aber sind Assembler-Pro¬ 
gramme beim Abdruck im Heft sehr platzraubend. Aus 
diesem Grund erarbeitet die Redaktion gerade ein As¬ 
sembler-Special für alle Freunde dieser Programmier¬ 
sprache. 

Dieses Heft wird voraussichtlich etwa zwischen dem 
1. und 15. Januar 86 erscheinen, aber nur an ganz 
gezielt ausgewählten Verkaufsstellen angeboten — 
Bahnhofskiosken — Computershops usw. 

Damit Sie nicht auf die Suche gehen müssen, können 
Sie sich dieses Heft schon jetzt reservieren lassen. Ein¬ 
fach den Coupon ausfüllen und — im Briefumschlag als 
Drucksache oder auf eine Postkarte geklebt — absen¬ 
den. 

Als Gegenleistung für diese Ihre Mühe erhalten Sie 
das Heft als Subskriptionsangebot sogar noch zehn Pro¬ 
zent billiger — einschließlich unserer Versandspesen. 
Nämlich für DM 17,80 statt zum Ladenpreis von DM 
19,80. 

ACHTUNG! Bitte kein Geld mitsenden, wir melden 
uns, wenn das Heft versandbereit ist. 


Auf besonderen Wunsch versenden wir auch über 
Nachnahme. Wir weisen aber ausdrücklich darauf hin, 
daß dadurch Mehrkosten von etwa DM 5,— Mark im In- 
und etwa DM 10,— im Ausland (Postgebühren!) entste¬ 
hen. 


rvln 

t |U 




Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen 
die Listings dieses Heftes auf 

□ Kassette (10 DM) 

□ Diskette (25 DM) 

Zutreffendes bitte ankreuzenl 
Ich zahle: 

per beigefügtem Scheck / Schein ( ) _ 

Gegen Bankabbuchung am Versandtag ( ) 

Meine Bank (mit Ortsname). 

Meine Kontonummer..'... 


Meine Bankleitzahl.(steht auf jedem Bankauszug) 

Vorname...Nachname .. 

Str./Nr.PLZ /Ort . 


Hiermit bestätige ich mit meiner Unterschrift, Ihre Verkaufsbedingungen 
gelesen zu haben und zu akzeptieren. 

Unterschrift.. 

Bitte ausschneiden und einsenden an 
TI-REVUE 

KASSETTENSERVICE 1/86 
Postfach 1107 
8044 Unterschleißheim 
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il+special+special+specia 

SONDERHEFT NR. 2/85 

DM 14,80/ÖS 124/SFR 14,80 

Anwender* 
Programme 

Utilities 

Schul-Program m e 
Spiele 
Adventures 



Rund 
150 
Seiten 
Listings 
für den 
90/4A 

JETZT 
AN IHREM 
KIOSK 


SPIEL-SALON 
FÜR BUCHHALTER 
MUSIKER & 
SAMMLER 
MATHE-TABELLEN 
TORE 

DIE HANDWERKER 
KOMMEN 

FÜR JEDEN ETWAS 
WAS MAN SCHWARZ 
AUF WEISS BESITZT 
SPRITE- 

KONSTRUKTEUR 











1790 ! 

1800 REM Fehlerbehandlung 
1810 ! 

1820 YY(I)=0 :: ON ERROR 182 
0 :l RETURN 860 
1830 ON ERROR 1830 :: RETURN 
1280 

1840 ON ERROR 1840 :: RETURN 
1400 

1850 ON ERROR 1850 :: RETURN 
1770 
1860 ! 

1870 REM PROZEDUREN 
1880 ! 

1890 SUB INTERVALL(L, R, U, 0) 
1900 1=2 :: DISPLAY AT(1,1): 
"x-interval1:" :: DISPLAY AT 
<2,i)BEEP:"x#[ M :: gosub 191 
0 :: GOTO 1930 
1910 ON WARNING NEXT :: ACCE 
PT AT<I,4)VALIDATE(NUMERIC): 
LL :: L1=LEN(STR$(LL)):: DIS 
PLAY AT(I,L1+4)BEEP: 

1920 ACCEPT AT(I,Li+5)VALIDA 
TE(NUMERIC):RR :: IF RR=LL T 
HEN 1900 :: Ri=LEN(STR*(RR)) 
:: DISPLAY AT <I,L1+R1+5)BEEP 
:"3" :: RETURN 

1930 L=MIN(LL,RR) : : R=MAX < LL 
, RR) 

1940 1=5 :: DISPLAY AT(4,1)S 
IZE(6):"werte: H :: DISPLAY A 
T(5,1)BEEP:"y#C” :: GOSUB 19 
10 

1950 U=MIN(LL,RR):: 0=MAX(LL 
, RR) 

1960 SUBEND 
1970 ! 

1980 SUB KREUZ(L, R, U, 0,X00,Y 
00,INT$) 

1990 REM Lage des Ursprungs: 


2000 CALL CLEAR :: X0=INT<L# 
31/(L-R) +. 5 ):: Y0-INT<Q*24/ < 
0-U)♦.5) 

2010 IF X0<=0 THEN X00=2 ELS 
E IF X0>=30 THEN X00=32 ELSE 
X00=X0+2 

2020 IF X0<0 OR X0>31 THEN Y 
CHAR=142 ELSE YCHAR=138 
2030 CALL VCHAR(1,X00,YCHAR, 
23)!y-Achse 

2040 IF Y0<=0 THEN Y00=1 ELS 
E IF Y0>=23 THEN Y00=23 ELSE 
Y00=Y0 

2050 IF Y0<0 OR Y0>24 THEN X 
CHAR*=141 ELSE XCHAR-139 
2060 CALL HCHAR(Y00,2,XCHAR, 
31) ! x-Achse 

2070 CALL HCHAR(Y00,X00,140, 

1)!Kreuzpunkt 

2080 REM Ausdruck der sortie 
rten Intervallgrenzen: 

2090 INT$= " x# C " &STR$ <L) fce" , "6c 
STR$(R)ßc"3 y# C " &STR$ < U)' 6c" , 
STR$ (0) & " 3 11 :: DISPLAY AT<24. 
,1)BEEP:INT$ 

2100 SUBEND 
2110 ! 

2120 SUB HARDCOPY(X00,F$,INT 
$,Z*() ) 

2130 OPEN #5:"RS232" ! oder 
PIO 

2140 ON ERROR STOP :: PRINT 
#5:TAB<8)?F$: : :TAB(8+2*X00 
-6){"y AH 

2150 FOR 1=1 TO 24 :: PRINT 
#5: TAB < 8) | 2.% (I) : : NEXT I ! Ac 
hsenkreuz mit Funktion 
2160 PRINT #5: :TAB(37-LEN(I 
NT$)/2) \ INT$: : :!Interval lg 
renzen 

2170 CLOSE #5 :: SUBEND 


Fortsetzung von Seite 21 


Kurven-Diskussion 


die Suche nach den Ex¬ 
tremwerten beendet ist. 

Es sind bereits einige Pro¬ 
gramme zur Funktionsana¬ 
lyse für den TI 99 im Um¬ 
lauf. Für mich war keines 
davon praktisch, weil sie 
alle auf Computerexperi¬ 
mente als Selbstzweck hin¬ 
ausliefen und nicht wirk¬ 
lich hilfreich bei der Be¬ 
trachtung von Funktionen 
waren. 

Meist werden wunderschö¬ 
ne Kurven in hochauflösen¬ 
der Grafik erzeugt, aber 
es dauert eine Ewigkeit, 
manchmal Stunden, bis 
sie fertig sind. 


Auch sind die Programme 
nur auf bestimmte Funk¬ 
tionen spezialisiert und an 
den Polstellen einer Funk¬ 
tion stürzen sie meist ab. 
Was mich sonst noch < 
stört, ist die gewöhnlich 
umständliche Art der Be¬ 
dienung. 

Ich habe mich deshalb be¬ 
müht, einen anderen Weg 
zu gehen und die — aus 
meiner Sicht — gemachten 
Fehler zu vermeiden. Das 
vorliegende Programm 
macht Konzessionen bei 
der Grafik, verarbeitet 
aber dafür alle gängigen 
Funktionstypen in ver¬ 


tretbarer Geschwindigkeit 
und ist unkompliziert zu 
handhaben. 

Zu beachten ist lediglich, 
daß die gewählte Funk¬ 
tion in das Programm ge¬ 
schrieben werden muß. 

Die entsprechende Zeile 
640 sollte auch dann vor 
dem Programmstart auf 
den Bildschirm gerufen 
werden, wenn sie nicht ge¬ 
ändert werden soll. Sie 
wird nämlich von dort ab¬ 
gelesen und kann so zur 
Erinnerung in das laufen¬ 
de Programm eingeblen¬ 
det und auch ausgedruckt 
werden. 


HINWEISE ZUM 
PROGRAMMLISTING 

Das Programm ist — teil¬ 
weise sehr detailliert — 
intern durch REMarks 
erläutert, die man beim • 

' Abtippen natürlich weg¬ 
lassen kann. 

Die Funktionsblöcke sind 
im Listing deutlich von¬ 
einander abgegrenzt. 
Kommentare stehen dort, 
wo sie gebraucht werden. 
Der Algorithmus ist in 
den Einzelheiten ver¬ 
zwickt, in den Grundzü¬ 
gen aber leicht zu ver¬ 
stehen. 

Es wird zunächst, nach 
Eingabe -der Intervall gren¬ 
zen für die x- und y-Werte, 

Bitte lesen Sie weiter auf S. 41 
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10 REM******************** 


11 REM* MAU MAU * 

12 REM* * 

13 REM* Copyright by * 

14 REM* * 

15 REM* J. Litzenberger * 

16 REM* . .* 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 12151 Bytes * 


25 REM******************** 

26 REM 

100 CALL CLEAR 
110 OPTION BASE 1 
120 DIM C$<9,2),D$<9,2),E$(3 
2,2) 

130 RESTORE 5120 
140 FOR 1=1 TO 49 
150 READ J,A$ 

160 CALL CHAR(J,A$) 

170 NEXT I 

180 FOR 1=9 TO 14 

190 CALL COLOR(1,2,16) 

200 NEXT I 

210 CALL COLOR(15,16,1) 

220 CALL C0L0R(16, 16, 1) 

230 PRINT TAB(10)»"MAU - MAU 
:TAB<7) j Vst... 
i j k... 'ab":T AB(7)i"uvw...lmn 
. . . c d e": 

240 PRINT TAB(7)5" xy z...opq. 
.. -f gh": : : : : :TAB(ll)|"e 
4/1985": :"...BV JOCHEN LITZ 
ENBERGER" 

250 GOSUB 1980 

260 PRINT ::::::::: 


270 A$="0601DU HAST 0...ICH 

HABE 0.KARTEN.KAR 

TEN." • , 

280 GOSUB 2070 

290 CALL HCHAR (4,, 21,42,7) 

300 CALL HCHAR(12,21,42,7) 
310 CALL VCHAR(5,21,42,7) 

320 CALL VCHAR(5,27,42,7) 

330 A$="1916WER SOLL AN-..FA 
NGEN ?" 

340 GOSUB 2070 

350 A$=" 1919-DU ODER ICH" 

360 GOSUB 2070 
370 CALL KEY(0,F,I) 

380 IF (F=68)+(F=73)THEN 390 
ELSE 370 
390 GOSUB 2170 
400 GOSUB 2210 
410 RANDOMIZE 

420 A$="1916ICH VERTEILE ! " 

430 GOSUB 2070 

440 FOR 1=1 TO 6 

450 GOSUB 2450 

460 GOSUB 2870 


470 NEXT I 

480 I=INT(RND*32)+1 

490 IF E$(I,1)<>"" THEN 550 

500 1=1+1 

510 IF I>32 THEN 530 

520 GOTO 490 

530 1=1 

540 GOTO 490 

550 P$=E$(I,1) 

560 Q$=E$(I,2) 

570 E*(I,1)="" 

580 E$(1,2)="" 

590 A$=P$ 

600 B$=Q* 

610 M=22 
620 N=5 

630 GOSUB 3270 

640 GOSUB 4240 

650 GOSUB 2170 

660 IF F=68 THEN 1540 

670 IF (Q$="SIEBEN")*(R=i)TH 

EN 4280 

680 IF (Q$="ACHT")*(R=i)THEN 
4350 

690 A$="1916DEINE KARTE :" 

700 GOSUB 2070 

710 GOSUB 3980 

720 1=1 

730 B*="" 

740 IF I>LEN(A$)THEN 1130 
750 IF SEG$(A$,I,1)=" " THEN 
790 

760 B$=B$&SEG$(A$,1,1) 

770 1=1+1 
780 GOTO 740 
790 S$=" u 
800 1=1+1 

810 IF I>LEN(A$)THEN 840 
820 S$=S$kSEG$(A*,I,1) 

830 GOTO 800 

840 IF (B$="KANN")*(S$="NICH 
T")THEN 1410 

850 IF (B$="KREUZ") + <B$="PIK 
") + <B$="HERZ") + <B*="KARO")TH 
EN 860 ELSE 1130 
860 IF (S$= "SIEBEN")+(S$="AC 
HT")+(S$="NEUN")+(S$="ZEHN") 
+<S$="BUBE")THEN 880 ELSE 87 
0 

870 IF (S$="DAME")+(S$="KOEN 
IG")+(S$="AS")THEN 880 ELSE 
1130 
880 1=0 
890 1=1+1 

900 IF I>9 THEN 1190 

910 IF C$(I,1)=B$ THEN 920 E 

LSE 890 

920 IF C$(I,2)=S$ THEN 930 E 
LSE 890 

930 IF S$="BUBE" THEN 950 
940 IF <C$(I,1)=P$)+(C$(I,2) 
=G$)THEN 950 ELSE 1220 
950 IF (C$(I,2)="BUBE")*(Q$= 
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"BUBE")THEN 1250 
960 P$=C$(I,1) 

970 Q*=C$(I,2> 

980 C$(I,1)="" 

990 C$(I,2>="" 

1000 A$=P$ 

1010 B$=Q$ 

1020 M=22 
1030 N=5 
1040 GOSUB 4570 
1050 GOSUB 3270 
1060 GOSUB 4560 
1070 GOSUB 4240 - 
1080 G=G-i • 

1090 CALL HCHAR(1,14,ASC(STR 
$(G> ) ) 

1100 IF G<1 THEN 1280 

1110 IF <Q$="BUBE")*(R=1)THE 

N 4420 

1120 GOTO 1540 

1130 A$="1918DIESE KARTE...G 

IBT ES.NICHT ! “ 

1140 GOSUB 2070 
1150 FOR 1=1 TO 500 
1160 NEXT I 
1170 GOSUB 2170 
1180 GOTO 690 

1190 A$="1918DIESE KARTE...H 

AST DU.NICHT ! " 

1200 GOSUB 2070 
1210 GOTO 1150 

1220 A$="1918DIESE KARTE...P 
ASST NICHT!" 

1230 GOSUB 2070 
1240 GOTO 1150 

1250 A$="1918BUBE AUF BUBE G 
EHT NICHT !" 

1260 GOSUB 2070 
1270 GOTO 1150 

1280 A$=" 1918DU HAST.G 

EWONNEN ! H 
1290 GOSUB 2070 
1300 GOSUB 1980 
1310 GOSUB 2170 

1320 A$="1918N0CH EIN.S 

PIEL ?" 

1330 GOSUB 2070 

1340 A$="1921JA ODER NEIN" 

1350 GOSUB 2070 

1360 CALL KEY(0,I, J) 

1370 IF 1=74 THEN 1440 

1380 IF 1078 THEN 1360 

1390 CALL CLEAR 

1400 END 

1410 GOSUB 2450 

1420 GOSUB 2170 

1430 GOTO 1540 

1440 CALL CLEAR 

1450 G=0 

1460 H=0 

1470 FOR 1=1 TO 9 
1480 C$(I,1)="" 

1490 C*(I,2>="" 


1500D*(I,1)="" 

1510 D$(1,2)="" 

1520 NEXT I 
1530 GOTO 270 

1540 IF (Q$="SIEBEN")*(R=l)T 
HEN 4610 

1550 IF (Q$="ACHT")#(R=1>THE 
N 4680 

1560 A$="1916MEINE KARTE 
1570 GOSUB 2070 
1580 1=0 
1590 1=1+1 

1600 IF I>9 THEN 1620 
1610 IF (D$(I,1)=P$)*(D$(I,2 
)< >"BUBE")THEN 1760 ELSE 159 
0 

1620 1=0 
1630 1=1+1 

1640 IF I>9 THEN 1660 
1650 IF (D$(I,2)=Q$)*(D$(I,2 
K> "BUBE") THEN 1760 ELSE 163 
0 

1660 IF Q$="BUBE" THEN 17J0 
1670 1=0 
1680 1=1+1 

1690 IF I>9 THEN 1710 
1700 IF < D$(1,2)="BUBE")THEN 
1760 ELSE 1680 
1710 A$="1919KANN NICHT !" 
1720 GOSUB 2070 
1730 GOSUB 2870 
1740 GOSUB 2170 
1750 GOTO 670 
1760 P$=D*(I,1) 

1770 Q$=D$(I,2) 

1780 A$= "1919"6cP$8<" "ß<Q$& n ." 
1790 GOSUB 2070 
1800 D$(1,1)="" 

1810 D$(1,2)="" 

1820 A$=P$ 

1830 B$=Q$ 

1840.M=22 
1850 N=5 
1860 GOSUB 4570 
1870 GOSUB 3270 
1880 GOSUB 4240 
1890 H=H-1 

1900 CALL HCHAR(1,27,ASC(STR 
*(H))) 

1910 IF H<1 THEN 1950 
1920 IF (Q$="BUBE")*(R=1)THE 
N 4750 

1930 GOSUB 2170 
1940 GOTO 670 
1950 GOSUB 2170 

1960 A*=" 1918ICH HABE.G 

EWONNEN ! " 

1970 GOTO 1290 
1980 RESTORE 5230 
1990 FOR J=1 TO 32 
2000 READ K,L 

2010 CALL SOUND(K,L,0,L*1.5, 
0,L*3,0) 









2020 NEXT J 

2030 FOR 1=0 TO 30 STEP 2 
2040 CALL SOUND(-100,L,I,L*1 
.5,I,L*3 V I) 

2050 NEXT I 
2060 RETURN 

2070 X=VAL(SEG$(A$,1,2)) 

2080 Y=VAL(SEG$(A$,3,2)) 

2090 FOR J=5 TO LEN(A$) 

2100 IF X +J-5>32 THEN 2140 
2110 CALL HCHAR(Y,X+J-5,ASC( 
SEG$(A$,J,1))) 

2120 NEXT J 
2130 RETURN 
2140 Y=Y +1 

2150 X=VAL <SEG$(A$,1,2))-(J- 
5) 

2160 GOTO 2110 

2170 FOR 1=13 TO 24 

2180 CALL HCHAR«I,19,32,14) 

2190 NEXT I 

2200 RETURN 

2210 A$="1918ICH MISCHE !" 
2220 GOSUE 2070 
2230 RESTORE 5260 
2240 FOR 1=1 TO 8 
2250 READ E'$ < 1,2 ) 

2260 E$«I,1>="KREUZ" 

2270 NEXT I 
2280 RESTORE 5260 
2290 FOR 1=9 TO 16 
2300 READ E$(I,2) 

2310 E$«I,1)="PIK" 

2320 NEXT I 
2330 RESTORE 5260 
2340 FOR 1=17 TO 24 
2350 READ E$(I,2) 

2360 E$(1,1)="HERZ" 

2370 NEXT I 
2380 RESTORE 5260 
2390 FOR 1=25 TO 32 
2400 READ E$(I,2) 

2410 E*«I,1)="KARQ" 

2420 NEXT I 

2430 CALL HCHAR<18,19,32,12) 
2440 RETURN 
2450 J=INT<RND*32)+1 
2460 K=1 

2470 IF E$«J,1)<>"" THEN 257 
0 

2480 J=J+1 
2490 K=K+1 

2500 IF J >32 THEN 2530 

2510 IF K>32 THEN 2550 

2520 GOTO 2470 

2530 J=1 

2540 GOTO 2470 

2550 GOSUB 2210 

2560 GOTO 2450 

2570 M=0 

2580 M=M+i 

2590 IF M=10 THEN 2660 
2600 IF <C*(M,1>=E$(J,1))*(C 


$(M,2)=E$(J,2))THEN 2630 
2610 IF <D$(M,1)=E$(J,1))*<D 
$(M,2)=E$(J,2))THEN 2630 
2620 GOTO 2580 
2630 E$(J,1)="" 

2640 E$(J,2)= M " 

2650 GOTO 2450 

2660 IF G>=9 THEN 2810 

2670 L=1 

2680 IF C$(L,1)=" U THEN 2710 
2690 L=L+1 
2700 GOTO 2680 
2710 C$(L,1)=E$(J,1> 

2720 C*(L,2)=E*(J,2) 

2730 E$(J,1)=" n 
2740 E$(J,2)="" 

2750 G=G+1 

2760 CALL HCHAR(1,14,ASC(STR 
*<G>)) 

2770 A$=C$(L,1) 

2780 B$=C$(L,2) 

2790 GOSUB 3260 
2800 RETURN 

2810 A$="1920DU BRAUCHST...K 

EINE KARTE...ZIEHEN,WEIL...D 

U SCHON SO...VIELE HAST." 

2820 GOSUB 2070 

2830 FOR 1=1 TO 500 

2840 NEXT I 

2850 GOSUB 2170 

2860 GOTO 1540 

2870 J=INT(RND*32)+1 

2880 K=1 

2890 IF E$ < J,1)< >"" THEN 299 
0 

2900 J=J+1 
2910 K=K+1 

2920 IF J >32 THEN 2950 

2930 IF K>32 THEN 2970 

2940 GOTO 2890 

2950 J=1 

2960 GOTO 2890 

2970 GOSUB 2210 

2980 GOTO 2870 

2990 M=0 

3000 M=M+1 

3010 IF M=10 THEN 3080 
3020 IF (C$(M,1)=E*<J,1))*(C 
$(M,2)=E$(J,2))THEN 3050 
3030 IF <D*<M,1)=E$<J,1))#<D 
*<M,2)=E$(J,2>)THEN 3050 
3040 GOTO 3000 
3050 E$ < J,1)="" 

3060 E$(J,2)="" 

3070 GOTO 2870 

3080 IF H>=9 THEN 3200 

3090 L=1 

3100 IF D$(L,1)="" THEN 3130 
3110 L=L+1 
3120 GOTO 3100 
3130 D«(L,1)=E«(J,1) 

3140 D$<L,2)=E$(J,2) 

3150 E$(J,1)="" 
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3160 E$(J,2)="" 

3170 H=H+1 

3180 CALL HCHAR(1,27,ASC(STR 
*<H> ) ) 

3190 RETURN 

3200 A$="1920ICH BRAUCHE...K 

EINE KARTE...ZIEHEN,WEII_I 

CH SCHON SO..VIELE HABE." 
3210 GOSUB 2070 
3220 FOR 1=1 TO 500 
3230 NEXT I 
3240 GOSUB 2170 
3250 GOTO 670 

3260 ON L GOSUB 3430,3460,34 
90,3520,3550,3580,3610,3640, 
3670 

3270 IF B$="SIEBEN" THEN 370 
0 

3280 IF B$="ACHT" THEN 3720 
3290 IF B$="NEUN" THEN 3740 
3300 IF B$="ZEHN" THEN 3760 
3310 IF B$="BUBE" THEN 3730 
3320 IF B$="DAME" THEN 3800 
3330 IF B$="KOENIG" THEN 382 
0 

3340 IF B$="AS" THEN 3840 
3350 FOR J=N TO N+6 
3360 FOR K=M TO M + 4 
3370 READ 0 
3380 IF 0=1 THEN 3860 
3390 CALL HCHAR(J,K,0) 

3400 NEXT K 

3410 NEXT J 

3420 RETURN 

3430 M=3 

3440 N=4 

3450 RETURN 

3460 M=8 

3470 N=4 

3480 RETURN 

3490 N=13 

3500 N=4 

3510 RETURN 

3520 M=3 

3530 N=11 

3540 RETURN 

3550 M=8 

3560 N=11 

3570 RETURN 

3580 M=13 

3590 N=11 

3600 RETURN 

3610 M=3 

3620 N=18 

3630 RETURN 

3640 M=8 

3650 N=18 

3660 RETURN 

3670 M=13 

3680 N=18 

3690 RETURN 

3700 RESTORE 5270 

3710 GOTO 3350 


3720 RESTORE 5290 
3730 GOTO 3350 
3740 RESTORE 5310 
3750 GOTO 3350 
3760 RESTORE 5330 
3770 GOTO 3350 
3780 RESTORE 5350 
3790 GOTO 3350 
3800 RESTORE 5370 
3810 GOTO 3350 
3820 RESTORE 5390 
3830 GOTO 3350 
3840 RESTORE 5410 
3850 GOTO 3350 

3860 IF A$="KREUZ" THEN 3900 

3870 IF A$="PIK" THEN 3920 

3880 IF A$="HERZ" THEN 3940 

3890 IF A$="KARO" THEN 3960 

3900 0=133 

3910 GOTO 3390 

3920 0=132 

3930 GOTO 3390 

3940 0=130 

3950 GOTO 3390 

3960 0=131 

3970 GOTO 3390 

3980 1=19 

3990 AS="" 

4000 CALL HCHAR(22,1,37) 

4010 CALL SOUND<300,110,0) 
4020 CALL KEY <0,J,K) 

4030 IF J=8 THEN 4150 
4040 IF J=13 THEN 4200 
4050 IF (J< 32) + (J >90)THEN 40 
20 

4060 IF I>31 THEN 4120 
4070 A$=A$&CHR$(J) 

4080 CALL HCHAR(22,I,J) 

4090 CALL HCHAR(22,1+1,37) 
4100 1=1+1 
4110 GOTO 4020 
4120 1=1-1 

4130 A$=SEG*(A$,1,LEN(A$)-1) 
8cCHR$ (J) 

4140 GOTO 4080 

4150 CALL HCHAR(22,1,32) 

4160 1=1-2 

4170 IF 1=17 THEN 4220 
4180 A$=SEG*(A*,1,LEN(A$)-1) 
4190 GOTO 4090. 

4200 GOSUB 2170 

4210 RETURN 

4220 1=1+1 

4230 GOTO 4090 T- 

4240 IF (Q$="SIEBEN")+(Q$="A 

CHT")+(Q$="BUBE")THEN 4260 

4250 RETURN 

4260 R=1 

4270 RETURN 

4280 R=0 

4290 AS="1916DU MUSST ZWEI K 
ARTEN ZIEHEN." 

4300 GOSUB 2070 
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4310 GOSUB 2450 
4320 GOSUB 2450 
4330 GOSUB 2170 
4340 GOTO 690 
4350 R=0 

4360 A*="1916DU MUSST EIN- M 
AL AUSSETZEN." 

4370 GOSUB 2070 
4380 FOR 1=1 TO 500 
4390 NEXT I 
4400 GOSUB 2170 
4410 GOTO 1540 
4420 R=0 

4430 A$="1916WELCHE FARBE W 
UENSCHST DU DIR ?" 

4440 GOSUB 2070 

4450 GOSUB 3980 

4460 IF (A$="KREUZ") + <A$="PI 

K") + (A$="HERZ") + (A$="KARO")T 

HEN 4470 ELSE 4500 

4470 P$=A$ 

4480 GOSUB 2170 
4490 GOTO 1120 

4500 A$="1919DIESE FARBE...G 
IBT ES NICHT!" 

4510 GOSUB 2070 
4520 FOR 1=1 TO 500 
4530 NEXT I 
4540 GOSUB 2170 
4550 GOTO 4430 

4560 ON I GOSUB 3430,3460,34 
90,3520,3550,3580,3610,3640, 
3670 

4570 FOR J=N TO N +6 
4580 CALL HCHAR(J,M,32,5) 
4590 NEXT J 
4600 RETURN 
4610 R=0 

4620 A$="1916ICH MUSS ZWEI K 
ARTEN ZIEHEN.” 

4630 GOSUB 2070 
4640 GOSUB 2870 
•4650 GOSUB 2870 
4660 GOSUB 2170. 

4670 GOTO 1560 
4680 R=0 

4690 A$="1916ICH MUSS EIN- M 
AL AUSSETZEN." 

4700 GOSUB 2070 

4710 FOR 1=1 TO 500 

4720 NEXT I 

4730 GOSUB 2170 

4740 GOTO 670 

4750 R=0 

4760 J=0 

4770 K=0 

4780 L=0 

4790 M=0 

4800 FOR 1=1 TO 9 
4810 IF D$(1,1)="KREUZ" THEN 
5100 

4820 IF D$(I,1)="PIK" THEN 5 
080 


4830 IF (I 9 1)=“HERZ" THEN 
5060 

4840 IF D*(1,1)“"KARO" THEN 
5040 

4850 NEXT I 

4860 IF <J>=K)*<J>=L>*<J>=M) 
THEN 5020 . *. 

4870 IF (K>=J)*<K>=L)*(K>=M> 
THEN 5000 

4880 IF (L>=J)*<L>=K)*(L>=M) 
THEN 4980 
4890 B$="KARO" 

4900 GOSUB 2170 

4910 A$="19181CH WUENSCHE..M 

IR "&B$k"." 

4920 GOSUB 2070 
4930 P$=B$ 

4940 FOR 1=1 TO 500 
4950 NEXT I 
4960 GOSUB 2170 
4970 GOTO 1930 
4980 B$="HERZ" 

4990 GOTO 4900 
5000 B$="PIK" 

5010 GOTO 4900 
5020 B$="KREUZ" 

5030 GOTO 4900 
5040 M=M+1 
5050 GOTO 4850 
5060 L=L+1 
5070 GOTO 4850 
5080 K=K+1 
5090 GOTO 4850 
5100 J=J+1 
5110 GOTO 4850 

5120 DATA 64,3C4299A1A199423 
C,96,070F1F1F1F1E1E1E,97,FFF 
FFFFFFF07039B,98,E0F8F8FCFCF 
CFCFE,99,1E1E1E0C0C040404 
5130 DATA 100,03416101897101 
01,101,FEFEFEFCFCF8F0F,102,3 
4C60B1122440811,103,0107FEFA 
5191901 

5140 DATA 104,80609C4E1F3FFF 
FF,105,0000000001020204,106, 
003E7F7FFF7F3F1F,107,0000008 
0C0C0C08 

5150 DATA 108,06040406050606 
07,109,9F1F1F5F9E1E1E1C,110, 
8,111,0702040830FCFFFF,112,1 
F0000000000FFFF 
5160 DATA 113,0080402030FCFE 
FF,114,0306060606070303,115, 
246666246DFFFF81,116,C0C0C04 
0C0C08080 

5170 DATA 117,03030707070F0F 
0F,152,FFFFFFFFFFFFFFFF, 37,0 
07E7E7E7E7E7E 

5180 DATA 118,00620008180022 
1C,119,8080804040E0E0F,120,3 
F3ED4100C03,121,C13E08081414 
E3,122,F0F00C2320C 
5190 DATA 130,247EFFFFFF7E3C 


18,131,183C7EFFFF7E3C18,132, 5310 DATA 148,144,144,144,14 

081C3E7F7F2A0808,133,0810082 9,146,1,152,1,147,146,152,15 

A7F2A0808 2,152,147,146,152,137,152,14 

5200 DATA 134,1C2222223E2222 7 

22,135,3E0204081010101,136,1 5320 DATA 146,152,152,152,14 

022221022222210,137,10222222 7,146,1,152,1,147,150,145,14 

1E02221C,138,000001 5, 145, 151 

5210 DATA 139,47084848484848 5330 DATA 148,144,144,144,14 

47,140,0080808080808,144,000 9,146,1,152,1,147,146, 152,15 

00000FFFFFFFF,145,FFFFFFFF,1 2,152,147,146,138,139,140,14 

46,0F0F0F0F0F0F0F0F 7 

5220 DATA 147,F0F0F0F0F0F0F0 5340 DATA 146,152,152,152,14 

F,148,0000000003070F0F,149,0 7,146,1,152,1,147,150,145,14 

0000000C0E0F0F,150,0F0F0703, 5,145,151 

151,F0F0E0C 5350 DATA 148,144,144,144,14 

5230 DATA 150,196,450,262,15 9,146,1,152,1,147,146,96,97, 

0,196,450,392,150,262,300,33 98,147,146,99,100,101,147 

0,150,294,150,330,300,262,30 5360 DATA 146,102,103,104,14 

0,196,300,262,300,440,300 7,146,1,152,1,147,150,145,14 

5240 DATA 392,150,330,150,34 5,145,151 

9,1050,392,150,196,450,262,1 5370 DATA 148,144,144,144,14 

50,196,450,392,150,262,300,3 9,146,1,152,1,147,146,105,10 

30,150,294, 150,330,300,262 6,107, 147, 146, 108,109,110,14 

5250 DATA 300,196,300,262,15 7 

0,330,150,349,450,294,150,26 5380 DATA 146,111,112,113,14 

2,900,262 7,146,1,152,1,147,150,145,14 

5260 DATA SI EBEN, ACHT,NEUN,Z 5,145,151 

EHN, BUBE, DAME,KOENIG,AS 5390 DATA 148,144,144,144,14 

5270 DATA 148,144,144,144,14 9,146,1,152,1,147,146,114,11 

9,146,1,152,1,147,146,152,15 5,116,147,146,117,118,119,14 

2.152.147.146.152.135.152.14 7 

7 5400 DATA 146,120,121,122,14 

5280 DATA 146,152,152,152,14 7,146,1,152,1,147,150,145,14 

7.146.1.152.1.147.150.145.14 5,145,151 

5,145,151 5410 DATA 148,144,144,144,14 

5290 DATA 148,144,144,144,14 9,146,1,152,1,147,146,152,15 

9.146.1.152.1.147.146.152.15 2,152,147,146,152,134,152,14 

2,152,147,146,152,136,152,14 7 

7 5420 DATA 146,152,152,152,14 

5300 DATA 146,152,152,152,14 7,146,1,152,1,147,150,145,14 

7, 146,1, 152, 1,147,150,-145,14 5,145,151 

5,145,151 
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Kurveit-Diskussion 

ein Koordinatenkreuz ent- rer ersten beiden Ablei- vall, welches sie enthält, i er aufgetreten ist. 
worfen, in welches der tungen gesucht und aus- fortwährend halbiert wird, Beim Abtippen des Pro- 
Funktionsgraph später ein- gewertet. - bis der Funktionswert in gramms sollte man die ON 

getragen wird. Die Koor- Dazu werden über das der Mitte kleiner als ERROR-Befehle erst ein- 

dinatenachsen, die außer- ganze Intervall hinweg in 0,000001 wird. Wenn trotz mal weglassen, damit es 

halb des betrachteten Ge- gleichbleibenden Schrit- sehr weit forgesetzter In- beim Austesten zu ver- 

biets liegen, werden ge- ten die Funktionswerte tervallschachtelung immer nünftigen Fehlermeldun¬ 
strichelt gezeichnet. von (f(x), F(x), f“(x) be- noch große Funktionswer- gen kommt. Erst nach Be- 

Die Funktionsanalyse rechnet. Dort, wo bei be- te auftreten, wird eine seitigung der Übertragungs¬ 

selbst geschieht in den nachbarten Werten ein Polstelle angenommen. - fehler werden sie eingesetzt 
klassischen Schritten der Vorzeichen Wechsel auf- Beachten Sie, wie man die Das Programm ist dann ab- 
Kurvendiskussion mit tritt, vermutet das Pro- ON ERROR-Routine rieh- gesichert gegen Abstürze, 

Hilfe der Differential rech- gramm eine Nullstelle. tig an wendet! Der Befehl die bei Eingabe falscher 

nung. Es werden Nullstel- Diese wird nun einge- muß jedesmal erneuert Definitionsbereiche oder 

len der Funktion und lh- grenzt, indem das Inter- werden, nachdem ein Feh- Bitte lesen Sie weiter auf Seite 47 





10 REM ******************** 


11 REM* SPEED BALL * 

12 REM* * 

13 REM* Copyright by * 

14 REM* * 

15 REM* Thomas Richardon * 

16 REM* * 

17 REM *Benoet i gte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 13805 Bytes * 


25 REM******************** 

26 REM 

100 RANDOMIZE 
110 CALL CLEAR 

120 PRINT : : : : :"FUER die 
SES SPIEL BENOETIGSTDU FOLGE 
NDE TASTENFUNKTIONEN": : : 

130 PRINT " ..1 = > LINKER FLIP 
PER": :"..0=> RECHTER FLIPPE 

R": : " . .B= > BALL BOTTOM": : 

§ $ § 

■ I • 

140 PRINT "...PRESS ANY KEY. 

•I 

150 CALL KEY(0,K,S) 

160 IF S=0 THEN 150 
170 CALL CLEAR 
180 CALL SCREEN(2) 

190 FOR 1=1 TO 16 
200 CALL COLOR(1,5,1) 

210 NEXT I 

220 A$="* SPEED..BALL 
*" 

230 CALL CHAR(42,"3C7EDBFFDB 
663C") 

240 FOR 1=1 TO LEN(A$) 

250 CALL HCHAR(8,5+I,ASC(SEG 
$<A$,I,1))) 

260 CALL SOUND(-200,440,1,44 
0+1/2,4,440-1/2,4) 

270 NEXT- I 

•280 A$=" .Copyright. 1984. by" 
290 FOR 1=1 TO LEN(A$) 

300 CALL HCHAR(13,7+1,42) 

310 CALL HCHAR(13,7+1,ASC(SE 
G4(A$,I,1))) 

320 CALL SOUND(-1000,-7,1) 
330 NEXT I 

340 a$=" T.RICHARDON " 

350 FOR 1=1 TO LEN(A$) 

'360 CALL HCHAR(18,10+1,42) 
370 CALL HCHAR(18,10+1,ASC(S 
EG$(A$, I, m) 

380 NEXT I 

390 FOR 1=1 TO 9 

400 CALL HCHAR(24,23,42,1) 

410 NEXT I 

420 FOR 1=1 TO 32 

430 CALL HCHAR(2,1,42,1) 

440 NEXT I 

450 FOR 1=1 TO 48 

460 CALL VCHAR(1, 32, 42,I) 


470 NEXT I 

480 PRINT "....press any Key 

• • • a 

490 CALL KEY(0,K,S) 

500 IF S=0 THEN 490 
510 GOSUB 530 
520 GOTO 660 

530 CALL SOUND(500,262,0,392 
,0,400,5) 

540 CALL t SOUND(300,392,0,523 
,0,530,5) 

550 CALL SOUND(750,523,0,784 
,0,790,5) 

560 CALL SOUND(100,392,0,523 
,0,530,5) 

570 CALL SOUND(100,523,0,784 
,0,790,5) 

580 CALL SOUND(1000,440,0,69 
8,0,705,4) 

590 FOR P=1 TO 300 
600 NEXT P 

610 CALL SOUND(750,523,0,880 
,0,888,5) 

620 CALL SOUND(800,440,0,698 
,0,706,5) 

630 CALL SOUND(1000,392,0,52 
3,0,532,5) 

640 CALL SOUND(2000,262,0,39 
2,0,400,5) 

650 RETURN 

660 CALL CHAR(65,"0000000F78 
417S7F") 

670 CALL CHAR(66,"000000F01D 
821DFD") 

680 CALL CHAR(67,"74347F7139 
3D3101") 

690 CALL CHAR (68, "FEFCFE8E9C 
EC8C80") 

700 CALL CHAR(69,"0101010202 
020404") 

710 CALL CHAR(70,"0408080810 
101020 ") 


720 CALL 
808080") 
730 CALL 
402020") 
740 CALL 
080304") 
750 CALL 
010101 ") 
760 CALL 
020404") 
770 CALL 
000000 ") 
780 CALL 
000000 ") 
790 CALL 
402020") 
800 CALL 
7E3C00") 


CHAR(71,"2020404040 
CHAR(72,"8080804040 
CHAR(73,"2010101008 
CHAR(74,"0404020202 
CHAR(75,"0000000001 
CHAR (76" FFF8C08000 
CHAR(77,"FF1F030100 
CHAR(78,"0000000080 
CHAR(79,"003C7EFFFF 


810 CALL CHAR<80,"8080808040 
404020") 

820 CALL CHAR(81,"201010080C 
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040203") 

830 CALL CHAR(82,"8080402010 
0804FF") 

840 CALL CHAR<83,"0100000000 
0000FF") 

850 CALL CHAR<85,"0101010303 
030505") 

860 CALL CHAR<86, "0808040402 
020101") 

870 CALL CHAR<87,"8080404020 
201010") 

880 CALL CHAR<88,"E01C030000 
000000") 

890 CALL CHAR<89,"0000S0700E 
010000") 

900 CALL CHAR(90,"0808040402 
C23907 ") 

910 CALL CHAR(33,"CCE6F3F9FC 
FEFFFF") 

920 CALL CHAR(84,"FFFFFFFFFF 
FFFFFF") 

930 CALL CHAR(35,"80F0FCFFFF 
FFFFFF") 

940 CALL CHAR(36,"FF3F1F0F03 
010000") 

950 CALL CHAR(37,"CCE6E6F3F3 
F3F33F") 

960 CALL CHAR(59,"010F3FFFFF 
FFFFFF") 

970 CALL CHAR(60,"FF") 

980 CALL CHAR(61,"3367CF9F3F 
7FFFFF") 

990 CALL CHAR(62,"33676FCFCF 
CFCFFC") 

1000 CALL CHAR(63,"FFFCF8F0C 
0800000") 

1010 PRINT TAB(10)$"TTTTscor 
eTTTT..ball"?TAB(10)i"TTTTTT 
TTTTTTT"JTAB<10) i "TXTTTTTTTT 

TTT"J TAB(9) f "KL", ".MN" 

1020 PRINT TAB(9)$"F..0 0 0 
0 0..I"JTAB(9)i"G....AB..AB. 

..J"$ TAB(8)J"U..S SCD..CDSSH 
H" 

1030 PRINT TAB(8) i "FP P<E..A 
B..HEI I" J TAB(8)J"GQ Q F..CD 

. .IFJ J": ".ESSR RG. 

.JGOH H" 

1040 PRINT ".F 0" , " a5. 

... .1 I": "......G","s..t.... 

J J":".....E.......i....e EH 

H H" 

1050 PRINT ".FE EW..d... 

. . .rFI I I": ".GF FV. 

.....GJ J J":"_E G G W";t 

AB <24)$"-gate" 

1060 PRINT "_F W XYZ- 

...F<<W I I":"_G V"iTAB(2 

0) ;"G.. V J J": "...E...<<<<!. 

.= < < < < H H H" 

1070 PRINT "...FXY2-$%... 

I I IG...XYZ"jT 
AB(24)j"J J J" 


1080 PRINT "...1TTTTTTTTTTTT 
TTTTTTTTTTT0":"...TTTpressTb 
allTbottomTbTTT" 

1090 PO=0 
1100 BA=3 

1110 DEF X=INT (Y-X-RND + 1) 

1120 CALL HCHAR(3,27,42,BA) 
1130 FOR 1=9 TO 12 
1140 CALL COLOR(1,16,1) 

1150 CALL COLOR(1,2,16) 

1160 CALL SOUND(-50,1*50,0) 

1170 NEXT I 

1180 CALL KEY(0,K,S) 

1190 IF S=0 THEN 1130 

1200 IF K=66 THEN 1220 

1210 GOTO 1180 

1220 M=0 

1230 A=0 

1240 LL=0 

1250 EE=0 

1260 R=0 

1278 T=0 

1280 J=0 

1290 W=1 

1300 CALL SCREEN(15) 

1310 CALL HCHAR(3,14,84,9) 
1320 CALL VCHAR(3,26+BA,32) 
1330 FOR 1=21 TO 6 STEP -3 
1340 CALL HCHAR(I,29-M,42) 
1350 CALL SOUND(100,-5,0) 

1360 CALL HCHAR(I,29-M,32) 
1370 M=M+1 
1380 NEXT I 
1390 Y=8 

1400 ON X GOSUB 1660,1680,17 

00,1720,1740,1760,1780,1800 

1410 FOR 1=1 TO 70 

1420 READ D,E 

1430 IF D=0 THEN 1650 

1440 CALL HCHAR(D,E,42) 

1450 CALL KEY(0,K,S) 

1460 IF S=0 THEN 1630 
1470 IF K=49 THEN 1500 
1480 IF K=48 THEN 1570 
1490 GOTO 1630 
1500 CALL HCHAR(20,14,32,2) 
1510 CALL HCHAR<19,15,84) 
1520 CALL HCHAR(19,16,35) 
1530 CALL HCHAR<19,15,32,2) 
1540 CALL HCHAR<20,14,36) 
1550 CALL HCHAR<20,15,37) 
1560 GOTO 1630 
1570 CALL HCHAR(20,20,32,2) 
1580 CALL HCHAR<19,20,84) 
1590 CALL HCHAR<19,19,59) 
1600 CALL HCHAR<19,19,32,2) 
1610 CALL HCHAR < 20,20,62) 
1620 CALL HCHAR<20,21,63) 
1630 CALL HCHAR(D,E,32) 

1640 NEXT I 

1650 ON E GOTO 4640,1910,197 
0,2110,2250,2390,2520,2640,2 
780,2960,3120,3460,3280,3610 














, 3790,4000,4160, 4540, 4570 


1660 

RESTORE 

1820 

1670 

RETURN 


1680 

RESTORE 

1830 

1690 

RETURN 


1700 

RESTORE 

1840 

1710 

RETURN 


1720 

RESTORE 

1850 

1730 

RETURN 


1740 

RESTORE 

1860 

1750 

RETURN 


1760 

RESTORE 

1870 

1770 

RETURN 


1780 

RESTORE 

1880 

1790 

RETURN 


1800 

RESTORE 

1900 

1810 

RETURN 


1820 

DATA 4,: 

23,4,21,4,17,4,1 


5,4,13,5,12,7,11,9,12,12,15, 

15,18,18,21,0,12 

1830 DATA 4,23,4,21,4,19,4,1 

8,4,17,4,16,4,15,4,14,0,6 

1840 DATA 4,23,4,21,4,19,4,1 

8,4,17,4,16,0,5 

1850 DATA 4,23,4,22,4,2.1,4,2 

0,0,3 

1860 DATA 5,23,0,2 

1870 DATA 4,22,4,21,4,20,5,1 

9,6,19,7,19,0,8 

1880 DATA 4,23,4,22,4,21,4,2 

0,5,19,6,18,7,19,8,20,9,21,9 

,20,9,21,0,11 

1890 DATA 4,23,4,20,4,18,4,1 
6,4,14,4,13,4,14,4,15,4,16,4 
,17,4,18,0,4 

1900 DATA 5,23,4,22,4,21,4,2 
0,5,19,7,18,9,17,12,16,15,16 
,18,16,0,16 
1910 PO=PO+2000 
1920 T=1 

1930 CALL HCHAR<3,22,116) 
1940 X$="*bonus**" 

“1950 GOSUB 4320 
1960 GOTO 1390 
1970 PO=PO+100 
1980 R=1 

1990 CALL HCHAR(3,20,114) 
2000 X$= H TTriskTT M 
2010 RI=2 
2020 GOSUB 4.320 
2030 Y=2 

2040 IF X=2 THEN 2070 

2050 RESTORE 2090 

2060 GOTO 1410 

2070 RESTORE 2100 

2080 GOTO 1410 

2090 DATA 6,19,7,18,0,7 

2100 DATA 8,20,10,20,12,20,1 

4,20,16,20,18,20,0, 17 

2110 Y=2 

2120 GOSUB 620 

2130 W=2 

2140 EE=1 


2150 CALL HCHAR(3,18,101) 
2160 X$=-OdoubleO M . 

2170 GOSUB 4320 

2180 IF X=2 THEN 2210 

2190 RESTORE 2230 

2200 GOTO 1410 

2210 RESTORE 2240 

2220 GOTO 1410 

2230 DATA 6,13,7,18,6,18,7,1 

9,8,20,9,21,0,11 

2240 DATA 6,18,8,17,10,16,12 

,15,14,14,15,13,0,13 

2250 PO=PO+80 

2260 LL=1 

2270 CALL HCHAR(3,16,108) 
2280 XS=" low> 15k" 

2290 RI=10 
2300 GOSUB 4320 
2310 Y=2 

2320 IF X=2 THEN 2350 

2330 RESTORE 2370 

2340 GOTO 1410 

2350 RESTORE 2380 

2360 GOTO 1410 

2370 DATA 4,17,4,18,4,19,4,1 

9,4,20,0,3 

2380 DATA 4,14,5,12,7,11,9,1 
2,11,14,14,17,18,19,0,17 
2390 PÜ=PO+1000 
2400 A=1 

2410 X$- "'^i odo'" 1 '" 

2420 CALL HCHAR(3,14,97) 

2430 GOSUB 4320 
2440 Y=2 

2450 IF X=2 THEN 2480 

2460 RESTORE 2500 

2470 GOTO 1410 

2480 RESTORE 2510 

2490 GOTO 1410 

2500 DATA 6,14,7,14,7,14,7,1 

4,8,16,9,16,10,16,11,16,13,1 

6,15,16,18,16,0,16 

2510 DATA 4,15,4,16,4,17,4,1 

8,5,19,6,19,0,8 

2520 Y=3 

2530 PO=PO+10 

2540 ON X GOTO 2550,2570,259 
0 

2550 RESTORE 2610 
2560 GOTO 1410 • 

2570 RESTORE 2620 

2580 GOTO 1410 

2590 RESTORE 2630 

2600 GOTO 1410 

2610 DATA 6,18,0,1,6,19,0,1, 

6,18,0,1,6,19,0,1,6,18,0,1,6 

,19,0,1,6,19,0,1,6,18,6,19,6 

, 19,0,8 

2620 DATA 7,13,0,1,7,19,0,1, 
7,18,0,1,7,19,8,20,9,21,0,11 
2630 DATA 7,18,0,1,7,19,0,1, 
7,18,0,1,7,19,0,1,8,17,10,16 
,0, J.0 


AA 




2640 PO=PO+10 
2650 FOR 1=1 TO 10 
2660 CALL SOUND(-50,-5,0) 
2670 CALL C0L0R<5,16,1) 

2680 CALL COLOR<5,13,1) 

2690 NEXT I 
2700 Y=3 

2710 ON X GOTO 2720,2720,274 
0 

2720 RESTORE 2760 

2730 GOTO 1410 

2740 RESTORE 2770 

2750 GOTO 1410 

2760 DATA 7,19,0,1,6,18,0,1, 

6,19,7,18,0,1,7,19,6,18,0,1, 

6,19,7,18,0,1,3,17,9,16,0,10 

2770 DATA 7,19,7,18,0,1,8,20 

,9,21,0,11 

2780 PO=PQ+20 

2790 Y=4 

2800 CALL SOUND(-50,-6,0,100 

0 , 0 ) 

2810 CALL COLOR(5,16,1) 

2820 CALL COLOR(5,11,1) 

2830 ON X GOTO 2840,2860,288 
0,2900 

2840 RESTORE 2920 

2850 GOTO 1410 

2860 RESTORE 2930 

2870 GOTO 1410 

2880 RESTORE 2940 

2890 GOTO 1410 

2900 RESTORE 2950 

2910 GOTO 1410 

2920 DATA 7,19,6,19,0,1,5,19 

,4,18,4,17,0,5 

2930 DATA 7,18,0,1,6,19,0,1, 
7,18,0,1,6,19,0,1,7,18,0,1,6 
,19,0,1,7,18,0,1,6,18,0,4 
2940 DATA 9,17,10,16,0,1,10, 
18,10,19,10,20,10,21,0,11 
2950 DATA 9,17,10,16,0,1,10, 
19,10,21,0,1,13,18,15,14,0,1 
,13,18,10,21,0,1,9,20,0,1,0, 
9 

2960 PO=PO+100 
2970 CALL SOUND(-50,-5,0) 
2980 CALL HCHAR(16,26,61) 
2990 CALL COLOR<5,16,1) 

3000 CALL COLOR(5,16,1) 

3010 Y=3 

3020 ON X GOTO 3030,3050,307 
0 

3030 RESTORE 3090 

3040 GOTO 1410 

3050 RESTORE 3100 

3060 GOTO 1410 

3070 RESTORE 3110 

3080 GOTO 1410 

3090 DATA 10,16,11,18,13,20, 

15,22,14,21,13,20,13,19,13,1 

8,14,16,16,15,17,14,0,13 

3100 DATA 9,16,8,17,7,18,7,1 


9,0,1,7,18,8,20,9,21,0,1,9,2 

0,9,21,0,1,9,20,0,1,9,21,0,1 

1 

3110 DATA 9,16,9,17,0,1,10,1 
6,0,1,11,-17,13,18, 15,19, 17,1 
9, 18,19,0,17 

3120 CALL SOUND(-50,-5,0) 
3130 CALL C0L0R(6,16,1) 

3140 CALL C0LQR(6,16,1) 

3150 CALL HCHAR(16,26,32) 

3160 Y=3 

3170 PO=PO+100 

3180 ON X GOTO 3190,3210,323 
0 

3190 RESTORE 3250 

3200 GOTO 1410 

3210 RESTORE 3260 

3220 GOTO 1410 

3230 RESTORE 3270 

3240 GOTO 1410 

3250 DATA 9,21,10,19,12,17,1 

3,16,14,15,15,14,0,1,0,13 

3260 DATA 9,21,0,1,11,19,14, 

17,18,16,0,16 

3270 DATA 9,21,10,21,11,21,1 
3,21,16,21,18,21,0,12 
3280 CALL SOUND(-50,-5,0) 
3290 CALL COLOR(7,16,1) 

3300 CALL COLOR(7,7,1) 

3310 PO=PO+50 
3320 Y=4 

3330 ON X GOTO 3340,3360,338 
0,3400 

3340 RESTORE 3420 
3350 GOTO 1410 
3360 RESTORE 3430 
3370 GOTO 1410 
3380 RESTORE 3440 
3390 GOTO 1410 
3400 RESTORE 3450 
3410 GOTO 1410 
3.420 DATA 15,13,15,14,15,15, 
15,16,15, 17, 16,19,17,21,0,12 
3430 DATA 16,14,15,15,14,16, 
13,18,12,20,11,22,10,24,0,15 
3440 DATA 16,14,16,15,16,16, 
17,18,18,19,0,17 
3450 DATA 15,13,0,1,14,18,13 
, 22 , 0 , 1 , 11 , 22 , 8 , 21 , 0 , 1 , 11,20 
,15,18,18,16,0,16 
3460 CALL SOUND(-50,-7,0) 
3470 CALL COLOR(5,16,1) 

3480 CALL COLOR(5,5,1) 

3490 PO=PO+50 
3500 Y=3 

3510 ON X GOTO 3520,3540,356 
0 

3520 RESTORE 3580 
3530 GOTO 1410 
3540 RESTORE 3590 
3550 GOTO 1410 
3560 RESTORE 3600 
3570 GOTO 1410 




A C 



3580 DATA 17,21,16,16,15,13, 
0,1,12,15,9,16,0,1,12,19,14, 
22,0,1,11,22,0,1,10,19,10,16 
,0,1,8,17,0,9 

3590 DATA 16,20,14,18,13,16, 

12,14,11,13,11,12,11,11,0,1'4 

3600 DATA 17,21,15,20,13,19, 

11,18,9,17,8,16,0,10 

3610 CALL SOUND(500,500,0) 

3620 PO=PO+500 

3630 CALL SCREEN(2) 

3640 IF J=0 THEN 3690 
3650 GOSUB 530 
3660 BA=BA+1 

3670 CALL HCHAR(3,27,42,BA) 
3680 GOTO 3700 
3690 X$="when 1it" . 

3700 GOSUB 4320 
3710 Y=RI 

3720 IF X=2 THEN 3750 
3730 RESTORE 3780 
3740 GOTO 1410 
3750 RESTORE 3770 
3760 GOTO 1410 

3770 DATA 12,10,13,9,16,8,17 
,8,18,8,19,8,20,10,21,13,0,1 
9 

3780 DATA 12,10,13,10,14,10, 
15,10,16,10,18,10,18,11,18,1 
2, 18,13,18,14,18,15,18,16,0, 
16 

3790 CALL SOUND(1000,440,0) 

3800 PO=PO+500 

3805 IF PO>15000 THEN 3820 

3810 IF A + LL + EE + R + T< 5 THEN 3 

850 

3820 CALL VCHAR<14,10,42,3) 
3830 J=1 

3840 CALL COLOR(2,16,1) 

3845 X$="OchanceO" 

3846 GOSUB 4320 

3850 X*= M ." 

3860 GOSUB 4320 
3870 Y=2 

3880 IF X=2 THEN 3950 
3890 CALL GCHAR(16,26,I) 

3900 IF 1=61 THEN 3930 

3910 RESTORE 3980 

3920 GOTO 1410 

3930 RESTORE 3970 

3940 GOTO 1410 

3950 RESTORE 3990 

3960 GOTO 1410 

3970 DATA 11,24,13,25,15,25, 

16,24,16,23,17,21,0,12 

3980 DATA 11,24,13,25,17,26, 

19,27-, 21,27,21,27,0, 19 

3990 DATA 12,23,14,22,16,21, 

18,20,0,17 

4000 CALL KEY <1,K,S) 

4010 IF S=0 THEN 4540 

4020 Y=4 

4030 ON X GOTO 4040,4060,408 


0,4100 - - 

4040 RESTORE 4120 

4050 GOTO 1410 

4060 RESTORE 4130 

4070 GOTO 1410 

4080 RESTORE 4140 

4090 GOTO 1410 

4100 RESTORE 4150 

4110 GOTO 1410 

4120 DATA 18,15,16,15,14,15, 

13,15,12,15,11,15,0,10 

4130 DATA 18,16,16,18,14,20, 

12,22,10,24,0,15 

4140 DATA 18,16,15,16,13,16, 

11,16,10,16,9,16,8,16,0,7 

4150 DATA 18,15,17,15,16,16, 

15,17,16,18,17,19,18,19,0,17 

4160 CALL KEY(2,K,S) 

4170 IF S=0 THEN 4540 
4180 Y=4 

4190 ON X GOTO 4200,4220,424 
0,4260 

4200 RESTORE 4280 

4210 GOTO 1410 

4220 RESTORE 4290 

4230 GOTO 1410 

4240 RESTORE 4300 

4250 GOTO 1410 

4260 RESTORE 4310 

4270 GOTO 1410 

4280 DATA 18,19,14,16,10,13, 

7,11,4,14,4,18,4,23,0,2 

4290 DATA 18,18,17,17,16,16, 

15,15,15,14,15,13,0,13 

4300 DATA 18,19,16,19,14,19, 

13,19,12,19,11,19,10,19,0,9 

4310 DATA 18,18,18,17,0,16 

4320 PO=PO*W 

4330 P$=STR$(PO) 

4340 L=LEN(P*) 

4350 N=0 

4360 CALL COLOR(6,7,1) . 

4370 CALL COLOR(7,16,1) 

4380 FOR 11=1 TO L 
4390 N=N+1 

4400 VX$=SEG*(P$,N,1) 

4410 V=VAL(VX$) 

4420 FOR C=0 TO V 
4430 CALL HCHAR(2,20-L+N,C+4 
8 ) 

4450 NEXT C 

4455 CALL SOUND( -50,587,0) 

4460 NEXT II 

4470 FOR 1=1 TO 8 

4480 CALL HCHAR(4,2 + 1,ASC < SE 

G$(X$,I,1))) 

4510 NEXT I 

4520 W=1 

4530 RETURN 

4540 RESTORE 4560 

4550 GOTO 1410 

4560 DATA 19,17,20,17,21,17, 

21,17,21,-18,21,19,21,20,21,2 
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1,21,22,21,23,0,19 

4570 CALL HCHAR(3,27,32,3) 

4580 CALL COLOR(2,7,1) 

4590 BA=BA-1 
4600 X$="new ball" 

4610 IF BA=0 THEN 4680 

4620 60SUB 4320 

4630 GOTO 1120 

4640 CALL SOUND <-50,-5,0) 

4650 CALL COLOR<5,16,1) 

4660 CALL COLOR(5,5,1) 

4670 GOTO 1640 

4680 IF PO<30000 THEN 4760 

4690 GOSUB 530 

4700 FÜR 1=1 TO 25 

4710 PRINT "HHHHHspecia 

l#**####*#**###";PO;"******P 


aints**":"" 

4720 CALL COLOR(2,1,1) 

4730 CALL COLOR(2,16,1) 

4740 NEXT I 

4750 GOTO 1010 

4760 CALL CLEAR 

4770 A$ = "schwache leistur.g" 

4780 PRINT "ÜQOgameOGOoverOO 


0": : : : :"again...press an 


y Uey": : : : : : 

4790 FOR 1=1 TO 1000 
4800 Y=32 

4810 SP=INT(24*RND)+1 
4820 AS=INT<58*RND)+33 
4830 CALL HCHAR(SP,X,AS) 
4840 Y=16 

4850 CALL SCREEN(X) 

4860 CALL KEY <0,K,S) 

4870 IF S=1 THEN 350 
4880 NEXT I 


Fortsetzung von Seite 41 


Kurven- 

Diskussion 


darin enthaltener Polstel¬ 
len auftreten würden. 

VARIABLENLISTE; 

wiederholt belegte Varia¬ 
ble von wechselnder 
Bedeutung: 

I, K, S, J, A, XO, YO, A$, 
B$, W$ 

Zwischenspeicher von je¬ 
weils erkennbarer, lokaler 
Bedeutung: 

Y, LI, Rl.XCHAR, 
YCHAR, YALT, XI, XN, 
YM, NST ' 

wichtige globale Variable: 

L, R linke, rechte (x-) 
Intervallgrenzen 
(Bildschirmposi¬ 
tion) 


U, O obere, untere 

(y-)Grenzen des 
Wertebereichs 
X00,Y00 Bildschirmposi¬ 
tion des Koordi¬ 
natenursprungs 
X unabhängige 

Funktionsvaria¬ 

ble 

DX Schrittweite bei 

der Untersuchung 
einer Funktion 
DY y-Maßstab, Zahl 

der Einheiten 
pro Bildschirm¬ 
zeichen 

LL, RR vom Benutzer 

eingegebene Zah¬ 
len für die Inter¬ 
vallgrenzen (nicht 
in Bildschirmein¬ 
heiten umgerechn 


INT$ String mit den 

Intervallgrenzen 
A Mittelwert bei 

Intervallschach- 
telung 

IND Indikator für vor¬ 

handene Null¬ 
stellen, Extrema 
u. Wendepunkte 
DRUCK Indikator für 

Druckerbetrieb 
F$ String des in 640 

eingeschriebenen 
Funktionsterms, 
d.h. Name der 
untersuchten 
Funktion 

E Eulersche Zahl e 

Definitionen: 

s. hierzu Programmzeile 

450-600 

Felder: 

Z$() Druckzeilen für 
Hardcopy 

YY()berechnete Funktions¬ 
werte im untersuch¬ 
ten Intervall 

Mau Mau 

Bei diesem Programm 
handelt es sich um das be¬ 
kannte Kartenspiel Mau- 
Mau, gespielt mit Skat¬ 
karten (32 Karten). Ge¬ 
spielt wird gegen den 
Computer. Die Spielregeln 
sind einfach: Es geht dar¬ 
um, die Karten möglichst 
rasch abzulegen, wobei 
entweder eine gleiche Far¬ 
be oder ein gleiches Bild 
wie die oberste Karte auf . 
dem Kartenstoß gelegt 
werden muß. Der Bube 
(Farbe gleichgültig!) wird 
verwendet, um eine neue 
Farbe zu wünschen. Bube 
darf nicht auf Bube gelegt 
werden. Wird eine „Sie¬ 
ben“ gelegt, muß der Geg¬ 
ner zwei Karten ziehen, 
bei einer „Acht“ einmal 
aussetzen. Wer nicht legen 
kann, muß eine Karte zie¬ 
hen. Maximal können auf 
der Hand bis zu neun Kar¬ 
ten gehalten werden. Mehr 
läßt das Programm nicht 
zu, sowohl bei einer „Sie¬ 
ben“ des Gegners als auch 
wenn man nicht legen 
kann. 

Die Karteneingabe erfolgt: 
Farbe — Leerzeichen — 

Bild (z.B. PIK BUBE oder 
KARO NEUN). Auch Zah¬ 
lenwerte sind als Wort 
einzugeben (s. obiges 
Beispiel), das Synonym 
„BAUER“ für „BUBE“ 
kann nicht verwendet 
werden. Alle Eingaben 
) sind in Großbuchstaben 


vorzunehmen. Falls man 
keine Karte zum Ablegen 
hat ist einzugeben: 

KANN NICHT. 

Besitzer von Diskettenlauf¬ 
werken müssen vor dem 
Laden des Programms 
CALL FILES(l) und 
NEW eingeben. 


Speed¬ 

ball 


Kurzbeschreibung 
Das Programm simuliert ei¬ 
nen Flipperautomaten. 
Taste 0 steuert den rech¬ 
ten Flipper 

Taste 1 steuert den linken 
Flipper 

Taste B schießt den Ball 
ins Feld. 

Es gibt 16, Schlüsselpunk¬ 
te auf dem Spielfeld, an 
denen der Ball eine neue 
zufällige Richtung ein¬ 
nimmt und Punkte gesam¬ 
melt werden. Daher un¬ 
endlich viele Spielvariatio¬ 
nen. 

Bedeutung der Schlüssel¬ 
punkte: 

(von links) 

1. Loch oben Bonus 1000 

2. Loch oben Risiko, daß 
der Ball unten links ins 
aus geht 1:10 

3. Loch oben Verdoppeln 
der Punktzahl 

4. Loch oben Risiko, daß 
der Ball unten links ins 
Aus geht 1:1 

5. Loch oben Bonus 2000 
Bande oben links: Ausgang 
unten rechts gesperrt 
Bande oben rechts: Aus¬ 
gang unten rechts wieder 
geöffnet 

Loch unten rechts: wenn 
Lampe brennt extra Ball 
Loch unten links aktiviert 
Lampe, falls ALERT leuch¬ 
tet oder mehr als 15000 
Punkte erreicht sind. 

Puks, sonstige Banden er¬ 
höhte Punktzahl, Effekte 
30000 Punkte Sonderspiel 

Funktion 

Abhängig von einer Zu¬ 
fallszahl wird an jedem 
Schlüsselpunkt eines von 
1—8 Datenfelder aufge¬ 
griffen. 

Die Daten beinhalten Be¬ 
wegung und Geschwindig¬ 
keit des Balles sowie am 
Datenende, welcher neue 
Schlüsselpunkt folgt. 

Am Anfang der Schlüssel¬ 
punkte werden die ent¬ 
sprechenden Effekte aus¬ 
geführt. 




Billiger als auf dem Rum¬ 
melplatz kommt die 
Schießbude auf dem TI 
99/4A. Sie benötigen da¬ 
zu das Extended Basic 
und einen Joystick. 

Wenn Sie das Programm 
(nach dem Abtippen, ver¬ 
steht sich) starten, läuft 
zuerst ein kurzer Vor¬ 
spann ab. Danach erscheint, 
etwa in Bildschirmmitte, 
die Zahl 0. Das ist der ak¬ 
tuelle Schwierigkeitsgrad. 
Wenn Sie den Joystick 
nach rechts bewegen, 
nimmt er zu, nach links 
nimmt er ab. Dabei wer¬ 
den nur Werte von 0 bis 
9 angenommen. Nachdem 
Sie den Level, den Sie für 
sich als geeignet empfin¬ 
den, eingestellt haben, be¬ 
tätigen Sie den Aktions¬ 
knopf, und das Spiel 
startet. 

Es geht nun darum, Ihre 
Vorgartenkanone am un¬ 
teren Bildschirmrand zu 
bewegen und dabei die — 
ebenfalls bewegten — • 
Ziele in der Schießbude 
abzuschießen. Sie können 
dabei das potentielle 
Mordwerkzeug auf dem 
Bildschirm nicht zum Still¬ 
stand bringen, auch wenn 
Sie’s noch so sehr versu¬ 
chen. Also: Aus der Bewe¬ 
gung heraus auf bewegte 
Ziele schießen. Und dabei 
sollten Sie auch noch mit 
der Munition, die Ihnen 
zur Verfügung gestellt 
wird, auskommen. 
Natürlich wird die Muni¬ 


tion von Level zu Level 
weniger. In Level 9 haben 
Sie nur noch neun Schuß, 
mit denen Sie die neun 
Ziele treffen sollen. Da¬ 
zu kommt noch, daß die 
Ziele sich immer schnel¬ 
ler bewegen. In Level 0 
stehen Sie still: Das ist 
der Trainings-Level, in 
dem es allerdings auch 
keine Punkte gibt... 

Wenn Sie die Schießbude 
leergeräumt haben, geht 
es eine Stufe schwieriger 
weiter. Dabei erhalten Sie 
noch Sonderpunkte für 
die Munition, die Ihnen 
verblieben ist. 

Unten auf dem Bildschirm 
werden der Munitionsvor¬ 
rat und der aktuelle 
Schwierigkeitsgrad ange¬ 
zeigt. Oben links finden 
Sie Ihre Punktzahl, 
rechts daneben das 
Höchstergebnis. Nach 
Spielende blinken diese 
beiden Zahlen, bis Sie ent¬ 
weder die Aktionstaste 
• betätigen, um ein neues 
Spiel zu starten, oder die 
Leertaste auf dem Key¬ 
board, um aufzuhören. 
Musikalisch werden Sie 
eine kleine Überraschung 
erleben: Dies ist eines der 
wenigen Spiele, bei dem 
es möglich war, es durch¬ 
gehend musikalisch zu un¬ 
termalen. Alpha Lock 
kann übrigens auch einge¬ 
rastet bleiben. 

Viel Vergnügen also bei 
Big Bug’s Schießbude! 

Alwin Ertl 
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280 CALL CLEAR :: CALL SCREE 

n<2>:: randonize :: Option b 

ASE 1 

290 DIM F(6,3),ZZ$(16),FR(24 

):: restore :: for 1 = 1 to 6 

:: READ F <1,1), F (1,2),F(I,3) 

:: next I :: for i = i to 24 : 

: READ FR(I):: NEXT I 

300 ! neue Zeichen und -färbe 

n 

310 FOR 1=48 TO 57 :: READ C 
$ :: CALL CHAR (I, “00 "6<C$8<"FF 

"):: next i 

32*0 CALL CHAR(64, “007C427C7C 
427C000018181818181800003C42 
404E423C000042424242423C") 
330 CALL CHAR<68,"0008100000 
000000003E40403C027C00003C42 
4040423C00004242427E4242") 
340 CALL CHAR(72,"007E407878 
407E00007C424242427C M ,80,"01 
0204080804020180402010102040 
80FF H ScRPT* ( "0" , 28) 8c H FF M ) 

350 CALL CHAR(88,RPT$("AA55" 
,4),96,"AA55AA55",104,"00EE8 
8E828EE00FF00AAAAEAAAAE00FF0 
0EE88EE22EE00FF") 

360 CALL CHAR(112,"000010382 
82838FF") 

370 CALL COLOR(3,10,1,4,10,1 
,5,16,1,6,16,1,7,10,1,8,13,1 
,9,4,1,10,8,1,11,14,1) 

380 ! Zeichen -f. sprites 
390 CALL CHAR(100,"000000000 
00101030203020D1A151A1F00000 
00000808040C040C0B0A858A8F8" 
) 

400 CALL CHAR(108,"000000000 
0010303030303030000000000000 
000000080808080808“) 

410 CALL CHAR(120,"00030F1F1 
F1F1FOF070303030303010000COF 
0F8F8F8F8F0E0C0C0C0C0C08") 
420 CALL CHAR(124,"002252961 
71F1F1F1F1F1F1F0F0F070100444 
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A69E8F8F8F8F8F8F8F8F0F0E08") 

430 CALL CHAR(128,"3C7EFFFFF 
FFF7F3F3F7FFFFFFFFF7E3C3C7EF 
FFFFFFFFEFCFCFEFFFFFFFF7E3C” 
) 

440 CALL CHAR<132,"0103060D1 
B366DDBDB6D361B0D06030180C06 
0B0D86CB6DBDBB66CD8B060C08”) 
450 CALL CHAR(136,"7FC0BFB0A 
FACABAAAAABACAFB0BFC07FFE03F 
D0DF535D55555D535F50DFD03FE " 
) 

460 CALL CHAR(140,"071F3F7F7 
FFFFEFFFFFFFF7F7F3F1F07E0F8F 
CFEFE7F7F7F7F7FFFFEFEFCF8E") 
470 ! titelgr-afik 
480 FOR 1 = 124 TO 139 CALL 
CHARPAT(I,2Z$(1-123)):: NEX 
T I I: CALL MAGNIFY(3) 

490 CALL SPRITE<#1,124,9,9,4 
1,«2,128,3,9,89,#3,132,14,9, 
137,#4,136,11,9,185,#5,100,1 
6,153,41) 

500 FOR 1=1 TO 4 :: CALL LOC 
ATE(#5,153,-7+1*48) 

510 CALL S0UND(-4000,-7,4-1) 
:: CALL SPRITE(#6,108,12,120 
,-7+1*48,-80,0) 

520 CALL PEEK(-31877,C)II IF 
(C AND 32)032 THEN 520 
530 CALL DELSPRITE(#6):: CAL 
L COLOR(#1,3):: ON I GOTO 54 
0,550,560,570 

540 CALL CHAR(124,"E080E034F 
41C1716020300000000000000000 
0000000C040F0D090FE04040404" 
):: GOTO 580 

550 CALL CHAR(128,"101010101 
0030101010100000000000000000 
0000080000000040404040004”)I 
I GOTO 580 

560 CALL CHAR(132,RPT$("0",4 
4)^”6555625262”):: GOTO 580 
570 CALL CHAR(136,"00C4A4C4A 
4C40000000019151915180000609 
080B060000000002629282BC6”) 
580 FOR J=220 TO 880 STEP 11 
0 :: CALL SOUND <-100,J,0,J*I 
,o,j+i,0):: next J :: next i 
:: lev=o :: call magnify( 4) 
590 ! level eingeben 
600 T0N=24 

610, CALL JOYST (1, X, Y) : : CALL 
KEY(1,K,S):: IF S THEN 660 
620 DISPLAY AT(12,15):USING 

”#":lev :: lev=lev+sgn(X) 

630 IF LEV< 0 THEN LEV=9 ELSE 
IF LEV>9 THEN LEV=0 
640 T0N=T0N-1 :: IF T0N<1 TH 
EN T0N=24 


650 CALL SOUND <-3000,FR(TON) 
,10,FR(TON)*3,12,FR(TON)-2,1 
2) :: GOTO 610 

660 CALL SOUND(-10,3E4,30):: 

CALL DELSPRITE(ALL):! FOR I 
=124 TO 139 :: CALL CHAR(I,Z 
z*(i-i23)):: NEXT i :: call 
CLEAR 

670 ! spiel-feld aufbauen 
680 PT=0 :: DISPLAY AT(1,1): 

using -######”:pt :: Display 

AT(1,22) i USING ”###### M :HS 
: : CALL MAGNIFY(3) 

690 DISPLAY AT(2,4):RPT$("S" 
,22):: DISPLAY AT(4,4) .*RPT$( 
"R”,22):: DISPLAY AT(3,3):”P 
GAB GCBDE EFGAHEEGCIHQ" 

700 DISPLAY AT(24,28)SIZE<1) 

:USING "#":lev :: sch=lev+(9 
-LEV)*2 :: DISPLAY AT(24,1)S 
IZE(SCH + 3) :"hij“J RPT$(“p”,SC 
H) 

710 FOR 1=5 TO 15 STEP 5 :: 
CALL HCHAR(I,1,88,64):: CALL 
HCHAR(I+2,1,96,32):: NEXT I 
:: CALL HCHAR(21,1,88,64):: 
CALL HCHAR(23,1,96,32) 

720 Z=0 :: FOR 1=4 TO 14 STE 
P 5 :: FOR J=5 TO 23 STEP 9 
:: z=z+i :: a=int( 6*RND+l):: 

CALL SPRITE(#Z, 116+4*A,F(A, 
INT <3*RND +1) ),1*8-7,J*8-7):: 

NEXT J :: NEXT I 
730 FOR 1=1 TO 3 :: CALL.MOT 

ion(# i,o, lev):: NEXT I :: fo 
R 1=4 TO 6 :: CALL MOTION(#I 
,0,-LEV):: NEXT I :: FOR 1=7 
TO 9 :: CALL MOTION(#1,0,LE 
V):: NEXT i 

740 CALL SPRITE(#10,100,16,1 
53,121):: FOR 1=220 TO 880 S 
TEP 55 :: CALL SOUND(-80,I,0 

, 1 * 2 , 0 , 1 / 2 , 0 ):: next i :: z= 
9 :: ton=o 

750 CALL MOTION(#10,0,(4+SGN 
(LEV/2))*SGN(RND-RND)) 

760 ! spielen 

770 CALL JOYST(1,X,Y):: IF X 
THEN CALL MOTION(#10,0,X+LE 
V/2*SGN(X)) 

780 TON=TON+1 :: IF T0N>24 T 
HEN T0N=1 

790 CALL SOUND(-4000,FR(TON) 
,6,FR(TON)*2,6,FR(TON)+2,8) 
800 CALL KEY(i,K,S):: IF NOT 
S THEN 770 

810 SCH=SCH-1 :: IF SCH THEN 
DISPLAY AT(24,4)SIZE(24):RP 
T$Cp",SCH)ELSE DISPLAY AT(2 
4,4)SIZE(24): 

820 CALL POSITION(#10,X,Y):: 


AQ 


» 


CALL SPRITE(#11,108,12,X-17 
,Y,-12,0) 

830 CALL POSITION(#11,X,Y):: 
IF X<9 OR X>169 THEN 1010 

840 IF X>88 THEN 940 
850 IF X>48 THEN 900 
860 CALL COINC(#11,#1,10,0: 
: IF C THEN S=1 :: GOTO 980 
870 CALL COINC(#11,#2,10,0: 

: IF C THEN S=2 :: GOTO 980 
880 CALL COINC(#11,#3,10,0: 

: IF C THEN S=3 :: GOTO 980 
890 GOTO 830 

900 CALL COINC(#11,#4,10,C): 

: IF C THEN S=4 :: GOTO 980 
910 CALL COINC(#11,#5,10,0 : 

: IF C THEN S=5 :: GOTO 980 
920 CALL COINC(#11,#6,10,0: 

: IF C THEN s=6 :: GOTO 980 
930 GOTO 830 

940 CALL COINC(#11, #7, 10,C): 

: IF C THEN S=7 :: GOTO 980 
950 CALL COINC(#11,#8,10,0: 

: IF C THEN S=8 :: GOTO 980 
960 CALL COINC(#11,#9,10,0: 

: IF C THEN S=9 :: GOTO 980 
970 GOTO 830- 

980 CALL DELSPRITE(#11,#S):: 
FOR 1=440 TO 990 STEP 110 : 

I CALL S0UND(-80,1*2,4,1*3,6 
):: NEXT I 

990 PT=PT +(10rS)*LEV :: DISP 
LAY AT(1,1)SIZE(6):USING "## 
####":PT :: z=z-i :: if z=o 
THEN 1020 

1000 IF SCH THEN 770 ELSE 10 
60 

1010 CALL DELSPRITE(#11):: C 
ALL SOUND(-90,-2,0):: GOTO 1 
000 

1020 FOR 1=1 TO 4 II FOR J=2 
20 TO 990 STEP 110 :: CALL S 
OUND(-90,J,0,J*I,0,J*l+2,0): 

: next j :: next i 

1030 LEV=LEV+1 :: IF LEV>9 T 
HEN LEV=9 

1040 PT=PT+SCH*(LEV-1):: DIS 
PLAY AT(1,1)SIZE(6):USING “# 

#####":pt :: goto 700 

1050 ! spielende 
1060 CALL DELSPRITE(ALL):: H 
S=MAX(PT,HS)I: DISPLAY AT(1, 
22 ):using "######":hs :: ton 

=990 

1070 DISPLAY AT(1,1)I :: TON 
=TON-110 :: IF TON<220 THEN 
T0N=990 

1080 CALL SOUND(-500,TON,4,T 
ON+2,6,TON-2,6)1! CALL KEY<1 
,K,S):: CALL KEY(0,K,S1): : I 


F S THEN CALL VCHAR(1,1,32,7 
68):: GOTO 600 
1090 IF S1 THEN 1140 ELSE DI 
SPLAY AT(1,1):USING "######" 
:PT :: DISPLAY AT(1,22):USIN 
G "######":HS 

1100 T0N=T0N-110 :: IF T0N<2 

20 THEN T0N=990 

1110 CALL SOUND(-500,TON,4,T 

ON+2,6,TON-2,6):: CALL KEY(1 

,K,S):: CALL KEY(0,K,si):: I 

F S THEN CALL VCHAR(1,1,32,7 

68):: GOTO 600 

1120 IF NOT Sl THEN 1070 

1130 ! programmende 

1140 DISPLAY ERASE ALL:"(c) 

1985 by BIG BUG Software”: : 

: :: END 

1150 ! -färben fuer sprites 
1160 DATA 4,11,10,10,14,6,3, 
4,13,9,16,8,13,14,15,11,12,1 
0 

1170 ! toene 

1180 DATA 247,294,392,294,26 

2,294,370,294,247,294,370,29 

4,247,330,392,330,262,330,44 

0,330,262,294,370,294 

1190 ! neue zi-f-fern 

1200 DATA 3C464A52623C,08180 

8080808,3C42021C407E,3C421El 

E423C,4048483E0808,7E403C024 

23C,3C42407C423C,7E420404080 

8,3C423C42423C,3C423E02423C 

1210 ! -fertig 


100 

i 

********************** 

110 

j 

* 

GALGENSPIEL 

* 

120 

1 

* 

COPYRIGHT BY 

* 

130 

i 

* 

Michael Kothe 

* 

140 

i 

* 

BEARBEITET VOM 

* 

150 

i 

* 

TEAM DES 

* 

160 

j 

* 

AKTUELL VERLAGES 

* 

170 

i 

* 

MUENCHEN 

* 

180 

1 

* 

BENOETIGTE GERAETE 

* 

190 

j 

* 

TI 99/4A KONSOLE 

* 

200 

1 

* 

EXTENDET - BASIC 

* 

210 

1 

* 

DSK oder CS 

* 

220 

1 

* 


* 

230 

2 

* 

SPEICHERBELEGUNG 

* 

240 

1 

* 

3050 BYTES 

* 

250 

1 

* 


* 

260 

1 

********************** 

270 

i 

HINWEIS: 


280 

i 

WENN DER BEGRIFF NICHT 


GERATEN WIRD BITTE 


"HELP" EINGEBEN 



290 CALL CLEAR :: CALL SCREE 
N<4):: CALL C0L0R(2,7,7,11,6 
,6)i: CALL COLOR(1,2,16,4,2, 
16) 

300 FÜR 1=5 TO 9 :: CALL COL 
0R(Z,2,16):: NEXT I 
310 DATA LEBENSVERSICHERUNG, 
RADIOWECKER,ANDROIDE,FERNSEH 
GERAET,PERSONALAUSWEIS,ISTAN 
BUL,CANNELONI,ANTHRAZIT,SCHW 
EIZ,SYRIEN,BILDERRAHMEN 
320 DATA WACHSFIGUR,FRUEHLIN 
GSWIESE,DOKUMENTENMAPPE,STEC 
HZIRKEL,ZIMMERANTENNE,HALLIG 
,ZYPRESSE,EUKALYPTUSBAUM 
330 DATA FENSTERSCHEIBE,HEXE 
NHAUS,HELGOLAENDER,HAUSFRAU, 
PARKPLATZ,ZIMMERMANNSAXT,PET 
ERSILIE,SCHAFSWOLLE,MELODIE, 
RADIOWECKER,ALTERSHEIM 
340 DATA QUERSTREIFEN,WASSER 
FALL,PUDERDOSE,HOSE,SUBVERSI 
V,QUITTUNG,QUERVERKEHR,CHINA 
KOHL,ZUFALLSZAHL,SLIWOWITZ 
350 DATA HEIMCOMPUTER,SCHNEL 
LHEFTER,PROSPEKT,TRAMPOLIN,S 
CHNEEFLOCKE,HYDROGENCARBONAT 
,JUGEND,PROGRAMM,OBJEKTIV,KI 
STE,ZAHNBUERSTE,EDELTANNE 
360 DATA WEIHNACHTSMANN,PERS 
HING,NERVEN,LIEBHABER,GUMMI, 
ARTERIE,PSYCHOLOGIE,KATASTRO 
PHE,NATUR,PAMPELMUSE,GLOBUS 
370 DATA KOPFSTUETZE,VERPFLE 
GUNG,ASPHALT,SPARBUCH,SCHWEI 
NSHAXE,JAMMER,SYMBOL,DISZIPL 
IN,PYRENAEENEXPEDITION,JURIS 
T 

380 RANDOMIZE 
390 DIM W$(73) 

400 FOR R=1 TO 73 :: READ W$ 
(R)I: NEXT R 

410 A=o :: Q=o :: QQ=o :: ra 
NDOMIZE :: Z=INT(RND*73)+1 
420 CALL CLEAR :: L=LEN(W$(Z 
) ) 

430 CALL HCHAR(9,1,45,160) 
440 FOR J=1 TO L :: DISPLAY 
ATdi, J+2)SIZE(L): " = " :: dis 
PLAY AT(10,J+2)SIZE(-L):"p" 

:: NEXT J 

450 DISPLAY AT(16,1):"IHR BU 
CHSTABE:....p" :: 

460 DISPLAY AT(5,1):"ERRATEN 
E":"BUCHSTABEN: "}Q 
470 CALL SOUND(50,660,3):: A 
CCEPT AT(16,19):B$ 

480 IF B$=“" THEN 730 

490 IF B*="HELP" THEN GOTO 7 

40 


500 IF LEN(B$)>1 THEN 730 :: 

IF ASC(B*)<*64 OR ASC(B$)>9 
0 THEN 730 

510 FOR X=3 TO 29 :: CALL GC 
HAR(24,X,II) 

520 IF II=ASC(B$)THEN 730 
530 NEXT X 

540 print B$;:: a=a+i :: gos 
UB 670 

550 CALL HCHAR(18,1,045,33): 
: CALL HCHAR(19,32,45,33) 

560 DISPLAY AT(19,1):"ANZAHL 
IHRER VERSUCHE: H iA 
570 FOR 1=1 TO L 
580 IF SEG$(W$(Z),I,1)=B$ TH 
EN 590 ELSE 610 
590 CALL HCHARdO, 1+4, ASC (B$ 
) ) 

600 Q=Q+1 
610 NEXT I 

620 DISPLAY AT(5,1):"ERRATEN 
E": "BUCHSTABEN: "|Q 
630 IF Q>=L THEN 640 ELSE 47 
0 

640 PROZENT=INT(QQ/A*100) 

650 DISPLAY AT(15,1):"SIE HA 
BEN "JA}"VERSUCHE ":"GEBRAUC 

ht..": : :".das entspricht " 

JPROZENT;"PROZENT": :"" 

660 CALL KEY(0,K,S):: IF S=0 
THEN 660 ELSE 410 
670 X=LEN(W$(Z)):: FOR 1=1 T 
0 X 

680 IF B$=SEG*(W$(Z),I,1)THE 

N 690 ELSE 710 

690 QQ=QQ+1 

700 I=X 

710 NEXT I 

720 RETURN 

730 CALL SOUND(300,260,3):: 
GOTO 470 

740 DISPLAY AT(10,3)SIZE(-L) 
:W$(Z) 

750 DISPLAY AT(15,1):"SIE HA 
BEN DAS WORT NICHT.... ERRATE 
N": GEBEN SIE DOCH NICHT 

SO":".SCHNELL AUF!.ES SIND 
DOCH":"...NUR 26 MOEGLICHKEI 
TEN" 

760 GOTO 660 


Die nächste 
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SERIE 


Drucker? 

Kein 

Geheimobjekt! 

Die Geheimnisse des Druckers entschleiert unser Serienautor 
Dr. Tölke. Mit vielen Tips und Tricks, die in keinem Druckerhand¬ 
buch stehen. Den ersten Teil dieser Serie, die in lockeremk Rah¬ 
men fortgesetzt werden soll, konnten Sie — einschließlich der 
Listings — in Heft 9/85 finden. Sollte ein Leser dieses Heft ver¬ 
paßt haben — wir haben noch einige Exemplare zur Nachliefe¬ 
rung auf Lager. 


Fortsetzung aus Heft 9/85 

Das eigentliche Problem besteht dar¬ 
in, die im Stringtext mit eingebun¬ 
dene ‘Steuercodetaste 4 in Form der 
gedrückten Taste CTRL plus Buch¬ 
stabentaste (CTRL-Zeichen) vor 
Ausgabe auf dem Matrixdrucker 
wieder herauszulesen und an ihre 
Stelle den Teilstring CODE$(NR), 
der als Steuerstring wirkt, einzuset¬ 
zen. Dies bedeutet, daß jeder Text¬ 
string Zeichen für Zeichen vorüber¬ 
gehend isoliert (im Programmbei¬ 
spiel IS$) geprüft und anschließend 
wieder verkettet werden muß. Dies 
erfordert in TI- und Ex-Basic relativ 
viel Zeit, denn das Programm läuft 
in beiden Versionen. Es ist dabei 
noch zu beachten, daß je nach ge¬ 
wählter Fluchtsequenz aus dem bis¬ 
herigen „Einzeichenplatz“ innerhalb 
des Strings ein „Zwei- bzw. Drei¬ 
zeichenplatz“ wird. Aus Gründen 
der besseren Übersicht ist das Pro¬ 
grammin 4 Abschnitten (Schritte) 
untergliedert. - 

1, Schritt _ 

Aufbau einer Umschlüsselungsliste 
zur Umwandlung des mittels CTRL- 
Zeichen erzeugten Tastencode in 
den für den Matrixdrucker verständ¬ 
lichen Steuercode, der in unserer 
Liste bis auf eine Ausnahme ESC- 
Sequenzen sein soll. Das kommt 
durch Verkettung von Stringzeichen¬ 
funktionen (CHR$) und Stringkon¬ 
stanten (hier als Einzelzeichen) in 
der einleitend beschriebenen Weise 


zu Stande. Flierzu wird die indizier¬ 
te Stringvariable CODE$(NR) be¬ 
nutzt. Die aktuelle Zahl bzw. der 
Index (NR) wird später aus dem 
Code der gedrückten Steuercodetaste 
mittels ASCII-Wertfunktion (ASC) 
ermittelt. Z.B. liefert CTRL R letzt¬ 
endlich den Code 12 und wird zum 
Index 12. 

Die Anordnung der Druckerfunktio¬ 
nen innerhalb der Umschlüsselungs¬ 
liste ist nur teilweise willkürlich, 
denn aus programmlogisehen Grün¬ 
den steht am Anfang eine indizierte 
Stringvariable, die nur aus einer 
Stringzeichenfunktion besteht 
(„Einzeichenplatz“). Dann folgen 
echte ESC-Sequenzen, bestehend 
aus zwei Stringzeichenfunktionen 
(„Zweizeichenplatz“). Schließlich 
kommen alle Sequenzen mit drei 
Stringzeichenfunktionen („Dreizei¬ 
chenplatz“). Leider ist dadurch eine 
leicht im Gedächtnis haftende Zu¬ 
ordnung der Steuerfunktion zu ei¬ 
nem bestimmten “CTRL-Buchsta- 
ben“ oder gar eine Übereinstimmung 
mit dem symbolischen Code des 
Druckers nur sehr eingeschränkt 
möglich. Die hier getroffene Auswahl 
läßt sich unter Beachtung dieser Kri¬ 
terien nach eigenem Ermessen ver¬ 
ändern. 

2. Schritt 


Aufbau des Programmteils zum ei¬ 
gentlichen Schreiben einer Textseite 
auf dem TI 99/4A mit gleichzeitiger 


Abbruchmöglichkeit mittels eines 
allein eingegebenen Ausrufezeichens. 
Beim Schreiben dieses Textes werden 
die CTRL-Zeichen mit eingegeben 
und als „Leerraum“ (nicht Space) 
aufgenommen. 


3. Schritt _ 

Aufbau des Programmteils, der die 
im Text befindlichen CTRL-Zeichen 
gegen den im 1. Schritt als String¬ 
zeichen (CODE$(NR)) definierten 
Steuercode (Steuerstring) austauscht. 
Die Umwandlung des jeweiligen 
Code (bezogen auf die Taste CTRL 
Zeichen mit eingegeben und als 
plus Zeichen) in einen aktuellen In¬ 
dex (-NR) geschieht an dieser Stelle. 
Hierzu muß jeder Teilstring darauf¬ 
hin überprüft werden, ob sich in ihm 
ein verschlüsselter Steuercode befin¬ 
det. Falls der Rechner ein „CTRL- 
Zeichen“ findet, wird an seiner Stel¬ 
le ein Steuerstring in den Gesamt¬ 
string eingebaut. Ist ein „CTRL- 
Zeichen“ vorübergehend in IS$ iso¬ 
liert und danach in einen IS$-String 
mit direkter Steuerwirkung verwan¬ 
delt, so verändert sich jetzt die Län¬ 
ge von IS$ in Abhängigkeit des er¬ 
mittelten Codes (sprich NR). Für 
die jetzt gewählte Umschlüsselungs¬ 
liste gilt nachfolgendes: Ist die NR 
gleich 1, so ist IS$ jetzt weiterhin ein 
Zeichen lang. Ist die NR größer gleich 
1 aber kleiner 11 - im Programm 
CODE <139 —, so beträgt die Län¬ 
ge von IS$ jetzt zwei Zeichen. NR 
mit einem Wert größer/gleich 11 
liefert drei Zeichen. Daraus ergibt 
sich die Notwendigkeit, nach jedem 
Isolieren eines CTRL-Zeichens die 
zukünftige Stringlänge zu berück¬ 
sichtigen. Die sich daraus ergebende 
Korrektur wird mit der Variablen 
KO realisiert und zwar schon beim 
Einsatz der drei benutzten Teilstring¬ 
funktionen (SEG$). 


4. Schritt _ 

Es kommt jetzt zum Druck des ge¬ 
schriebenen Textes unter Berück¬ 
sichtigung der an bestimmten Stel¬ 
len vorgesehenen Ansteuerung des 
Matrixdruckers. 

Daß es sich um ein Demonstrations¬ 
beispiel handelt, ist unter anderem 
auch daran erkennbar, daß eine 
nachträgliche Textkorrektur noch 
nicht vorgesehen ist. Dies sollte in 
einem Realprogramm vor der Um¬ 
schlüsselung erfolgen. Auch die ei¬ 
gentliche Texteingabe ist bewußt 
relativ einfach gehalten, um von 
dem wesentlichen, nämlich der An¬ 
steuerung eines Matrixdruckers vom 
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CLUB-ECKE 


Text aus, indirekt realisiert mittels 
ESC-Sequenzen, nicht abzulenken. 
Die jetzige Wirkung der CTRL-Zei- 
chen ist aus dem Programmkom¬ 
mentar des 1. Programmabschnitts 
(Schritt 1) ersichtlich. 

Falls der Leser das Prinzip im Pro¬ 
gramm verstanden hat, sollte fol¬ 
gende Option gewählt werden. An 
Stelle der Programmzeilen 565 bis 
620 sind folgende zwei Zeilen auf¬ 
zunehmen: 

NR=CODE-128 

KO=KO+LEN(CODE$(NR))-l 
Dies bringt den Vorteil, daß die Um¬ 
schlüsselungsliste nicht nach der An¬ 
zahl der Stringzeichenfunktion ge¬ 
ordnet sein muß, und somit nmeno- 
technische Gesichtspunkte (im 
Volksmund das Bauen von Esels¬ 
brücken) stärker in den Vordergrund 
rücken können. Wird die Umschlüs¬ 
selungsliste erweitert, so ist mit die¬ 
ser Option es nur noch notwendig, 
in Programmzeile 525 die dort jetzt 
befindliche Zahl 147 entsprechend 
zu erhöhen. 

UNBEDINGT DRUCKTECHNISCHE 
BESONDERHEITEN BEACHTEN 

Nicht in jedem Fall lassen sich in 
einer Textzeile bestimmte Ansteue¬ 
rungen kombinieren. Die Ursachen 
hierfür liegen im drucktechnischen 
Bereich. Deshalb sind die in der Be¬ 
dienungsanleitung gegebenen Hin¬ 
weise unbedingt zu beachten. Bei¬ 
spielsweise bleibt nach Aufhebung 
des.hoch- oder tiefgestellten verklei¬ 
nerten Druck ein Doppeldruck be¬ 
stehen. Er muß zusätzlich im vor¬ 
liegenden Programm mit CTRL H 
aufgehoben werden. Der Zeichensatz 
Italic wurde aufgenommen, um im 
Bedarfsfälle an Stelle des Paragra¬ 
phenzeichens das at-Zeichen (@) 
drucken zu können. Die Aufhebung 
geschieht mit CTRL J, was aber 
gleichzeitig zur Normierung des 
Druckers führt. Das bedeutet, er be¬ 
findet sich im gleichen Zustand, wie 
er sich nach dem Einschalten ein¬ 
stellt. Dies ist wiederum von der 
Stellung des DIP-Schalters im Druk- 
ker abhängig. Prinzipiell ist es zwar 
möglich, den Zeilenabstand über 
CTRL B, C oder D zu verändern. 
Dies erfolgt aber erst, wenn die 
schon im Druckpuffer befindlichen 
Zeichen alle gedruckt wurden. So¬ 
mit funktioniert es auf jeden Fall, 
wenn man dies am Anfang der er¬ 
sten Textzeile bewirkt. Man sollte 
deshalb bei der ersten Benutzung 
des Programmbeispiels die Bedie¬ 
nungsanleitung des Druckers zur 
Hand haben. 

Dr. Arnim Tölke 


Clubecke 

Hallo 

Tl-User- 

Clubs! 


Viele User-Clubs beschäftigen 
sich in keiner Weise geschäftlich 
mit dem TI 99/4A, auch sind 
fast immer die Vorstände oder 
Kontaktpersonen ehrenamtlich 
tätig. In letzter Zeit erhielten wir 
öfters die Bitte, hier nochmal 
darauf hinzuweisen, daß die 
Clubs üblicherweise nur Anfra¬ 
gen beantworten, denen Rückpor¬ 
to beiliegt. Dies tun wir natürlich 
gerne. Also: Bei Clubanfragen 
immer Rückporto oder noch bes¬ 
ser gleich einen frankierten 
Rückumschlag beilegen. 

Ein neuer Club hat sich in Gelsen¬ 
kirchen gebildet: Vier Computer- 
Freaks aus Gelsenkirchen haben 
einen Club gegründet, der sich 
mit den Modellen TI 9914A, C64 
und dem Apple II beschäftigt 
(wenn Interesse vorhanden, auch 
mit anderen Modellen). Alle 5 
Wochen erscheint eine Clubzei¬ 
tung, in der Erfahrungsberichte, 
Tips, Listings u.v.m. veröffent¬ 
licht wird. 

Nähere Infos bei: 

Roman Romanowski, 

In den Ertlen 40, 

4650 Gelsenkirchen 2 

Weiter möchte sich heute der TI- 
Club Baunatal vorstellen: 

Vor einem Jahr, am 1.1.85, wurde 
der Tl-Club Baunatal, kurz T-C-B, 
ins Leben gerufen. Das erste 
Clubmagazin des TCB ’s hatte ei¬ 
nen Umfang von nur 8 Seiten. 
Heute dagegen bringt es die TI- 
Post, so ist der Name des Club¬ 
magazins, auf 28 Seiten, die voll¬ 
gefüllt mit Tricks und Kniffen, 
Listings, Softwarevorstellungen 
und -Warnungen, Hardwarebe¬ 
richten, Interviews und nützli¬ 
chen Programmen sind. Außer¬ 
dem läuft momentan ein Pro¬ 
grammierkurs vom ,,Erfolgsautor“ 
Alwin Ertl. Zusätzlich bietet der 
TCB eine Programmbibliothek 
mit momentan 400 Programmen, 
die ausschließlich den Mitgliedern 
zur Verfügung stehen. Hier findet 
man Spiele, Anwenderprogram¬ 


me aus fast allen Bereichen in 
Basic und Extended Basic. Gegen 
Selbstkostenpreis steht den Mit¬ 
gliedern der Club-Drucker, ein 
Seikosha GP 550A mit 18 
Schriftarten, zur Verfügung. Bei 
Problemen mit dem 99er steht 
der Club gerne allen Mitgliedern 
mit Rat und Tat zur Seite. Der 
Clubbeitrag beträgt 2,- DM pro 
Monat und wird zur Deckung der 
anfallenden Unkosten verwendet. 
Bei Mitgliedschaft erhält jedes 
Neumitglied Clubausweis und das 
neueste Clubmagazin. Gegen 
—,50 DM Rückporto sendet der 
Club allen Interessenten einen In¬ 
formationsbrief mit A n meldefor- 
mular zu. Wer gerne das Clubheft 
kennenlernen möchte, der kann 
gegen 3,— DM in bar die neueste 
Tl-Post mit Infobrief anfordern. 
Die Adresse lautet: 

Tl-Club Baunatal, 

Matthias Orf, Birkenallee 34, 

3507 Baunatal 1 

Die letzte Clubvorstellung für heu¬ 
te bestreitet der Rex-Soft Club, 
schon länger ir. der Tl-Szene 
bekannt: 

Der Club Rex-Soft besteht mitt¬ 
lerweile seit Anfang 1985 aus 
über 50 Mitgliedern. Monatlich 
erscheint auf Kassette eine mehr¬ 
teilige Clubzeitschrift. Diese wird 
in Zusammenarbeit mit den Mit¬ 
gliedern her gestellt. In naher Zu¬ 
kunft ist ein Clubtreffen geplant. 
Der Club hat es sich als Aufgabe 
gesetzt, gute Software anzubie¬ 
ten. Daher hat er einen Katalog 
mit über 100 der besten Program¬ 
men aus dem Club zusammenge¬ 
stellt. Dieser ist für einen Unko¬ 
stenbeitrag von 2,— DM erhält¬ 
lich. Rex-Soft ist jederzeit bereit, 
Probleme jeglicher Art zu lösen. 
Durch den Clubeintritt hat man 
die Möglichkeit, Hard- und Soft¬ 
ware zum Teil preiswerter zu be¬ 
kommen. Rex-Soft ist internatio¬ 
nal. Die Mitglieder kommen aus 
Deutschland, Österreich, Schweiz, 
Spanien und Holland. Die Ver¬ 
kehrssprache ist Deutsch. Weiter 
plant der Club, mit der Zeit sel¬ 
ber Bücher und Hardware heraus¬ 
zugeben. Diese sollen dann natür¬ 
lich für die Mitglieder preisgün¬ 
stiger sein. Ein Informationsblatt 
steht für Sie bereit. Schreiben 
Sie an: 

Michael Rattelmüller, 
August-Beben Str. 11, 

6454 Bruchköbel 1 






TIPS & TRICKS 


Scroll- 

Unter- 

Routine 

Diese Subprogramme erlauben es, Wör¬ 
ter, Buchstaben oder Grafiken rechts 
oder links in beliebigen Schrittweiten zu 
scrollen. 

Beispiel: 

10 A$ = “TEXT“ 

20 CALL SCROLL1 (A$,l ,10) 

30 GOTO 20 

Das Wort Text wird in der 10. Zeile um 
einen Block nach rechts gescrollt. Wenn 
man den 2. Wert um 1 erhöht, wird das 
Wort in einer Schrittweite von 2 Zeichen 
nach rechts gescrollt. Wird der 2. Wert ne¬ 
gativ, so scrollt das Wort nach links. Je 
nachdem wieviele Zeilen gescrollt werden 
sollen, muß Befehl CALL SCROLL 1,2,3 
oder 4 heißen. Die Zahl bezeichnet dann 
jeweils die Anzahl der Zeilen. 

Martin Hollnagel 
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350 CALL CLEAR :: AS="DEMOPR 
OGRAMM" 

360 FOP 1=1 TO 35 


370 CALL SCROLL1(AS,1,10) 

380 NEXT I 

390 CALL CLEAR :: AS=" 

SCROLL- DEMOPROGR 

AMM" 

400 FOR 1=1 TO 35 

410 CALL SCR0LL2(AS,-1,10) 

420 NEXT I 

430 CALL CLEAR :: AS="3-ZEIL 
ER SCROLL 

DEMOPROGRAMM 
440 FOR 1=1 TO 35 
450 CALL SCR0LL3(AS,1,10) 

460 NEXT I 

470 CALL CLEAR :: AS="DIES I 
ST EIN DEMOPRO 

GRAMM FUER EINEN 

VIERZEILIGEN SCROLL" 

480 FOR 1=1 TO 16 

490 CALL SCROLL4(AS,2,10) 

500 NEXT I 
510 ! 

520 ! UNTERPROGRAMME 
530 ! 

540 SUB SCROLL1(AS,A,B) 

550 IF LEN(AS)< 29 THEN AS=SE 
GS(AS,1,LEN(AS))kRPTS(" ",28 
-LEN(AS)) 

560 IF INT(A)=0 THEN 620 
570 IF A<0 THEN 600 
580 AS=SEGS(AS,LEN(AS)+1-A,A 
)&SEGS(AS,1,LEN(AS)-A) 

590 GOTO 620 
600 A=ABS(A) 

610 AS=SEGS(AS,1+A,LEN(AS)-A 
)&SEGS(AS,1,A) 

620 DISPLAY AT(B,1):SEGS(AS, 
1,28) 

630 SUBEND 

640 ! 

650 ! 

660 !*********************** 
670 !* * 

680 !* ZWEIZEILER-SCROLL * 
690 !* - - * 

700 !* FORM: SIEHE OBEN * 
710 !* - * 

720 !****** ***************** ' 
730 ! 

740 ! 

750 SUB SCR0LL2(AS,A,B) 

760 IF LEN(AS)<57 THEN AS=SE 
GS(AS,1,LEN(AS)/2)&RPTS(" ", 
28-LEN (AS)'/2) &SEGS (AS, LEN (AS 
)/2+l,LEN(AS)/2>&RPTS(" ",28 
-LEN(AS)/2) 

770 IF INT(A)=0 THEN 330 
780 IF A<0 THEN 810 
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790 A4=SEG4 ( A4,LEN(A4)/2+1-A 
,A)&SEG4(A4, 1,LEN(A4) /2-A)kS 
EG4(A4,LEN<A4)+ 1-A,A)&SEG4(A 
4,LEN(A4)/2+l,LEN(A4)/2-A) 

800 GOTO 830 
810 '0>=ABS<A) 

820 rt4=SEG4(A4,1+A,LEN(A4)/2 
-A)kSEG4(A4,1,A)&SEG4(A4,LEN 
(A4)/2+1+A,LEN(A4)-A)&SEG4(A 
4,LEN(A4)/2+1,A) 

830 C4=SEG4(A4,1,28)kSEG4(A4 
,LEN(A4)/2+1,28) 

840 DISPLAY AT(B,1):C4 
850 SUBEND 
860 ! 

870 ! 

880 !*********************** 
890 !* * 

900 !* DREIZEILER-SCROLL * 

910 !* * 

920 !* FORM: SIEHE OBEN * 

930 !* * 

940 !*********************** 
950 ! 

960 ! 

970 SUB SCR0LL3(A4,A,B) 

980 IF LEN(A4)>84 THEN 1000 
990 A4=SEG4(A4,1,LEN(A4) /3)h 
RPT4(" ",28-LEN(A4)/3)&SEG4( 
A4,LEN(A4)/3+1,LEN(AS)/3)&RP 
T4<" ",28-LEN<A4)/3)&SEG4(A4 

,LEN(A4)/3*2+1,LEN(A4)/3)&RP 
T4(" ",28-LEN(A4)/3) 

1000 IF INT(A)=0 THEN 1100 
1010 IF A<0 THEN 1060 
1020 B4=SEG4(A4,LEN(A4)/3+l- 
A,A)&SEG4(A4,1,LEN(A4)/3-A)k 
SEG4(A4,LEN(A4)/3*2+1-A,A)&S 
EG4(A4,LEN(A4)/3+l,LEN(A4)/3 
-A) 

1030 B4=B4&SEG4(A4,LEN(A4)+1 
-A,A)&SEG4(A4,LEN(AS)/3*2 +1, 
LEN (A4)/3-A) 

1040 A4=B4 :: B4= M " 

1050 GOTO 1100 
1060 A=ABS(A) 

1070 B4=SEG4(A4,1+A,LEN(A4)/ 
3-A)&SEG4(A4,1,A)&SEG4(A4,LE 
N(A4)/3+l+A,LEN(A4)/3-A)&SEG 
4<A4,LEN(A4)/3+1,A) 

1080 B4=B4kSEG4(A4,LEN(A4)/3 
*2+l+A,LEN(A4)/3-A)&SEG4(A4, 
LEN(A4)/3*2+1,A) 

1090 A4=B4 :: B4=" " 

1100 C4=SEG4(A4,1,28)&SEG4<A 
4,LEN(A4)/3+1,28)&SEG4(A4,LE 
N(A4)/3*2+1,28) 


1110 DISPLAY AT(B,1):C4 
1120 SUBEND 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 

1240 SUB SCR0LL4(A4,A,B) 

1250 IF LEN(A4)>112 THEN 129 
0 

1260 B4=SEG4(A4,1,LEN(A4)/4) 
kRPT4<" ",28-LEN(A4)/4)&SEG4 
(A4,LEN(A4)/4+1,LEN(A4)/4) &R• 
PT $(" ",28-LEN(AS)/4) 

1270 B4=B4kSEG4 (A4, LEN (A4) /4 
*2+1,LEN(A4)/4)&RPT4(" ",28- 
LEN (A4) /4) &SEG4 (A4, LEN (A4) /4 
*3+ 1, LEN ( A4) / 4 ) ScRPT 4 ( " ",28- 

LEN (A4) / 4) 

1280 A4=B4 B4=" " 

1290 IF INT(A)=0 THEN 1390 
1300 IF A<0 THEN 1350 
1310 B4=SEG4(A4,LEN(A4)/4+1- 
A, A) &SEG4 ( A4, 1, LEN (A4) /4-A)& 
SEG4(A4,LEN(A4)/2+1-A,A)kSEG 
4(A4,LEN(A4)/4+1,LEN(A4)/4-A 

> / 

1320 B4=B4&SEG4(A4,LEN(A4)/4 
*3+1-A,A)&SEG4(A4,LEN(A4)/2+ 
1,LEN(A4)/4-A)&SEG4(A4,LEN(A 
4)+1-A,A)&SEG4 < A4,LEN(A4)/4* 
3+1,LEN(A4)/4-A) 

1330 A4=B4 :: B4="" 

1340 GOTO 1390 
1350 A=ABS(A) 

1360 B4=SEG4(A4,1+A,LEN(A4)/ 
4-A) &SEG4 (A4, 1, A) (USEG4 (A4, LE 
N(A4)/4+1+A,LEN(A4)/4-A)&SEG 
4(A4,LEN(A4)/4+1,A) 

1370 B4=B4&SEG4(A4,LEN(A4)/2 
+1+A,LEN(A4)/4-A)&SEG4(A4,LE 
N(A4)/2+1,A)&SEG4(A4,LEN(A4) 
/4*3+1+A,LEN(A4)/4-A)&SEG4<A 
4,LEN(A4)/4*3+1,A) 

1380 A4=B4 :: B4="" 

1390 C4=SEG4(A4,1,28)&SEG4(A 
4,LEN(A4)/4+i,28)&SEG4(A4,LE 
N ( A4) /2+ 1,28) &SEG4 (A4, LEN (A4 
)/4*3+l,28) 

1400 DISPLAY AT(B,1):C4 
1410 SUBEND 


********************* 
* * 

* VIERZEILER-SCROLL * 

* * 

* form: siehe oben * 

* * 
********************* 
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DIS-ASS: 

Vom Disassemblerfile zum 
beinahe assemblierbaren 
Quellcode 


Wenn man ein fremdes Maschinenpro¬ 
gramm disassembliert hat, so bedauert 
man oft, daß dieses nicht mit Labein 
versehen ist, wodurch man sich ja beson¬ 
ders durch größere Programme leichter 
durchfindet. Auch kann man interessan¬ 
te Programmteile, die in eigene Program¬ 
me eingebaut werden sollen, meist nur 
durch mühsame Eingabe des Codes über 
Tastatur als Quellcode gewinnen. Das 
vorliegende Programm schafft in solch 
einem Falle etwas Hilfe, vorausgesetzt, 

Sie haben sich mit dem Disassembler, 
wie es auch für das Buch TI 99/4A in¬ 
tern verwendet wurde, ein File erstellt. 
Nach dem Laden und Starten werden der 
Name des Disassemblerfiles sowie des 
Files erfragt, das daraus generiert wer¬ 
den soll. Als zusätzliche Option kann 
ein Drucker angesprochen werden. Sind 
all diese Angaben korrekt eingegeben, so 
werden allen HEX-Zahlen, die mit 
beginnen, sowie allen Zahlen der . 


10 


11 

! 4 


4 

12 

! 4 

DIS - ASS 


13 

! 4 


4 

14 

! 4 

Copyright fcy 

4 

15 

! 4 

D r. H. Greiner 

* 

16 

! 4 


4 

17 

! 4 

Benoetigte Geraete 

* 

18 

! 4 

TI 99/4A Konsole,. 

4 

19 

! 4 

Ext. Basic, 32K, 

* 

20 

! 4 

Disklau-f werk, Dis- 

4 

21 

! 4 

assemb1 er 

* 

22 

! 4 


* 

23 

•4 

Spei cher-be 1 egu ng 

* 

24 

! 4 

3784 Bytes 

* 

25 

!4444444444*44*4*4444444 


100 OPTION BASE 1 
110 DIM AZS(1000),ANS<1000) 
120 LS,L1S,L2S,D1$,D2S="" :: 
X=1 

130 CALL CLEAR :: CALL SCREE 

N<14):: for l=0 to 12 :: cal 
L COLORtL,11,14):: NEXT L 
140 DISPLAY AT(7,1):"Disasse 
mb 1er-Datei" :: DISPLAY AT<9 
,5) : "Lau-fwerk-Nr. : " :: ACCEP 
T AT(9,19)VALIDATE("123")SIZ 


“JUMP“- und LWPI-Befehle Label zuge¬ 
ordnet. Danach erst wird bei einem neu¬ 
erlichen Durchlauf das neue Quellcode¬ 
file erstellt. Die zuvor ermittelten Label 
werden eingesetzt. Wenn ein Label dem 
zweiten oder dritten Wort eines Mehr¬ 
wortbefehls zugeordnet ist, so wird die 
Warnung “<LABEL> EQU $-2 ODER 
4 ACHTUNG!!!“ ins File geschrieben. 
Anhand der EQU-Liste, die alle Adress- 
namen den Adressen zuordnet und vor 
dem eigentlichen Code ausgegeben wird 
und des Disassemblercodes kann man die 
korrekte Zahl leicht ermitteln. Fragezei¬ 
chen des Disassemblers werden als 
DATA gewertet. Das neue File ist eben¬ 
falls VARIABLE 80 und kann daher mit 
dem Assemblermodul oder Tl-Writer 
weiterverarbeitet werden. Auf dem 
Drucker (optional) wird sowohl der Dis¬ 
assemblercode, als auch der neugenerierte 
Code nebeneinander ausgegeben. 

Dr. H. Greiner 

e<1)beep:lis 

150 DISPLAY AT(10,5):"Datei- 
Name! " :: ACCEPT AT(10,17)SI 

ze<10)beep:dis 

160 DISPLAY AT<13,1):"Neue D 
atei" :: DISPLAY AT(15,5):“L 
au-fwerk-Nr. : " :: ACCEPT AT (1 
5,19)VALIDATE <"123")SIZE(1)B 
EEP:L2S 

170 DISPLAY AT(16,5):"Datei- 

Name:" :: ACCEPT AT(16,17)SI 

ZE<10)BEEP:D2S 

180 DISPLAY AT<20,1):"Drucke 

r? < J/N) N" :: ACCEPT AT<20, 

16)VALIDATE<"NJ")SIZE <-1)BEE 

P:LS 

190 IF L1S="" OR L2S="" OR D 
1$="" OR D2S="" THEN 130 
200 OPEN #1 *. "DSK"kLlSk" . "kDl 
S,VARIABLE 80 

210 OPEN #2:"DSK"kL2Sfc"."&D2 
S,VARIABLE 80 

220 IF LS="N" THEN 230 ELSE 
INPUT "Drucker-Datei: ":LS : 

: OPEN #3:LS 
230 CS,DS="" 

240 IF EOF(1)THEN 380 
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250 linput #i:ss :: ss=seg$< 
s$, i,pos<ss," M ,19)):: if se 

GS(SS,13,1)="J" OR SEGS<SS,1 
3,2)="LW" THEM CS=SEGS(SS,19 
,4):: GOTO 350 

260 FOR L=18 TO LEN(SS):: IF 
SEGS(SS,L,1) = "@" THEN CS=SE 
GS(SS,L+2,4):: GOTO 280 

270 NEXT L I: GOTO 230 

280 IF POS<SS," ",25)-(L+7)< 

6 THEN 310 

290 FOR L.L=L + 6 TO LEN<SS):: 

IF SEGS(SS,LL,1)="@" THEN DS 
=SEGS<SS,LL+2,4) 

300 NEXT LL 

310 IF <CS="")AND<DS=”")THEN 
230 ELSE IF DS="" THEN 350 
320 FOR L=1 TO X :: IF DS = AZ 
$(L)THEN 350 
330 NEXT L 

340 AZ$(X)=DS X=X+ 1 
350 FOR L=1 TO X : : IF CS=AZ 
S <L)THEN 230 
360 NEXT L 

370 azs(X)=cs :: x=x+i :: go 
TO 230 

380 IF X< 2 THEN X=0 :: GOTO 
410 

390 FOR L= 1 TO X-l ANS (L) 
= "L"E<STRS(L):I NEXT L 
400 ! 

410 RESTORE #1 

420 FOR L=J TO X-l :: SOS=AN 
S (L)E<RPTS(" ",7-LEN(ANS(L))) 
E<"EQU > U E<AZS<L):: PRINT SOS 
:: PRINT #2:sos :: if ls<>" 
N" THEN PRINT #3:SOS 
430 NEXT L :: PRINT :: P 

rint «2:"*" :: if ls<>"N" th 

EN PRINT #3:"*" 

440 linput #i:sis :: if segs 

(SIS,1,1)="-" THEM 730 ELSE 
AS,ES,CS,DS,AOS,COS,DOS,SOS= 

M II 

450 LSI=POS(SIS," ”,19):: AS 

=segs(sis,1,4):: bs=seg$<sis 
,13,4):: for L=i to x :: if 
AZS <L) =AS THEN AOS=ANS (L) E<RP 
TS <" ",6-LEN(ANS(L))):: GOTO 
470 

460 NEXT L :: AOS=RPTS(" ", 6 
) 

470 IF SEGS(BS,1,1)="J" OR B 
S="LWPI" THEN 650 ELSE IF SE 
GS(BS,1,1)="?" THEN 680 ELSE 
IF SEGS(BS,1,1)=" " THEN 69 

0 

480 FOR L=18 TO LSI :: IF SE 


GS<SI$,L, 1) = "<2" THEN CS=SEGS 
(SIS,L + 2,4):: GOTO 500 
490 NEXT L :: GOTO 640 
500 IF LSI-(L+7)<6 THEN 530 
510 FOR LL=L + 6 TO LSI : IF 
SEGS(SIS,LL,1)="@" THEN D$=S 
EGS(SIS,LL+2,4):: GOTO 530 
520 NEXT LL 

530 IF CSO"" AND DS=" " THEN 
600 

540 IF CS="" AND DS="" THEN 
640 

550 FOR L=1 TO X-l :: IF AZS 
(L)=CS THEN COS=ANS(L) 

560 IF AZS(L)=DS THEN DOS=AN 
S (L) 

570 NEXT L 

580 H1 =POS (SIS, " @ , 18) ::. H2= 
POS(SIS,,25) 

590 SOS=AOS&" "E<BSE<" "8<"@"E<C 
OS&SEGS(SIS,24,H2-24)E<"@"E<DO 
SE<SEGS (SIS, H2 + 6, LEN (SIS) -H2 + 
5):: GOTO 710 

600 FOR L=1 TO X :: IF CS=AZ 
S(L)THEN COS=AN$(L):: GOTO 6 
20 

610 NEXT L 

620 Hl=POS(SIS,,18) 

630 SOS=AOSE<" " E<BSE<" * " E<SEGS ( 
SIS, 18, Hl -18) E<"G" E<COSE<SEGS<S 
IS,Hl+6,LEN(SIS)-Hl+5) : GOT 
0 710 

640 SO$=AOSE<" " E<BSE<" "E<SEGS( 
SIS,18,LEN(SIS)-17):: GOTO 7 
10 

650 CS=SEG$(SI$,19,4):: FOR 
L=1 TO X-l :: IF CS=AZS(L)TH 
EN COS=AN$(L):: GOTO 670 
660 NEXT L 

670 SOS=AOSE<" "E<BSa<" "E<COS : 

: GOTO 720 

680 SOS=AOSE<" "E< M DATA"6<" "E<" 
>"E<SEGS(SI$,7,4) I : GOTO 720 
690 IF SEGSCAOS,1,1)<>"L" TH 
EN IF LS< >“N" THEN PRINT #3: 

sis :: goto 440 else 440 

700 SOS=AOSE<" EQU "E< H S-2 OD 
ER 4 ACHTUNG!!!" :: GOTO 72 
0 

710 SOS=SEGS(SOS,1,POS(SOS," 
" , 19) ) 

720 PRINT SOS :: PRINT #2:S0 
S :: IF LSO"N" THEN PRINT # 
3:sis,sos 

730 IF EOF(1)THEN 740 ELSE 4 
40 

740 IF LS< >"N" THEN CLOSE #3 
750 CLOSE #1 : *. CLOSE #2 
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REPORT 


Wir bitten um Ihre Hilfe 


Deswegen noch einmal 
meine Bitte: 

Schreibt wenigstens Na 
men und Ort in Druck¬ 
buchstaben. Ihr erspart 
mir Arbeit und Euch 


Ärger wegen nicht ge¬ 
lieferter Hefte! 

Mit der Bitte um Ihr Ver¬ 
ständnis, 

Ihr Abo- und 
Kassetten-Service 


PS: Und sollte jemand ei 
nen so seltenen Namen 
wie „Müller" oder 
„Schmidt" haben, bitte 
vollständige Adresse! 
Denn davon haben wir 
etliche Hundert im 
Computer. 


Grüß Gott aus München, 
liebe TI-REVUE-Leser 
und -Abonnenten. 

Wie es sich gehört, zuerst 
eine gute Nachricht. Ab 
sofort bin ich für Sie je¬ 
den Dienstag und Mitt¬ 
woch zwischen 14.30 und 
18 Uhr telefonisch unter 
der Verlagsnummer 089/ 
129 80 11 erreichbar. 

Falls es Probleme mit der 
Abo- oder Kassettenlie¬ 
ferung gegeben haben 
sollte — oder gibt, ein¬ 
fach anrufen und den 
Abo-Service verlangen. 
Aber bitte, wirklich nur 
Dienstag und Mittwoch. 
Und nun zu der schlech¬ 
ten Nachricht, die insbe¬ 
sondere die Abonnenten 
angeht! Liebe Freunde, 
einige unter den Tl-Usern 
haben eine derart mise¬ 
rable „Klaue", daß selbst 
Sherlock Holmes den Na¬ 
men nicht entziffern 
könnte. Falls Ihr es nicht 
glaubt — einige dieser 
„Originalbelege" könnt 
Ihr hier bewundern. 

Zwar tut die Überweisung 
unserem Bankkonto gut, 
aber leider nicht dem Ver¬ 
hältnis zwischen Verlag 
und Abonnent. Da hat 
also ein Herr Qurzkl treu 
seine Abogebühr über¬ 
wiesen und kriegt doch 
kein Heft. Spätestens 
nach 14 Tagen tobt er 
dann am Telefon. 

Liebe Abonnenten: Wir 
haben wirklich diverse 
Aboeinzahlungen, die wir 
beim besten Willen nicht 
buchen können. Gelegent¬ 
lich können wir wenig¬ 
stens die Kontonummer 
entziffern und über eine 
Kontoauskunft — von 
Bank zu Bank — die 
Adresse verifizieren. Das 
kostet jedesmal runde 
10 Mark, nicht Euch, 
uns. 

Langsam dreht mir der 
Verleger den Kragen ob 
dieser Kosten rum. Abge¬ 
sehen davon, daß selbst 
dieser Ausweg versperrt 
ist, wenn auf der Über¬ 
weisung weder Kontonum 
mer noch Name stehen — 
Beweis anbei. 


Verwendungszweck (nur für Emp(finger) 

TI - o E.O Cißi* - 


Konlo-Nr. des Auftraggebers 


Auftraggeber (genaue Anschrift} 


BankJi 


EmplAngef 


'Konto-Jkr.idee ErnpAnger« 


bei - Oöt «Tp trtOtrt! Konto de* £mpf*no«n 


Verwendungszweck (n» «t Empfänger) 


Auftraggeber 


Kdntö-Nr. des Auftraggebers 


Originalbelege. Frage an unsere detektivisch geschulten Leser: Wie heißt der jeweile Namenszug? 
e- Empfänger------—---;-—-"--- | — B * oWe,UAhl - 


p f S?( f kJO £ 
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Sollte jemand bei dieser Bank ein Konto haben und gleichzeitig Abonnent sein, bitte umgehend 
bei uns melden! Wir haben das Geld, aber keinen Absender! 








Noch immer 
Spekulation: 
Der neue 99er 
im Gespräch 

Am 2. November fand in Chicago 
eine Ausstellung statt, veranstaltet 
von der Chicago TI 99/4A User 
Group. Auf dieser Verkaufsmesse 
boten ca. 30 Händler alle mögliche 
Hardware, vom Monitor bis hin zu 
allen Erweiterungen und Software, 
zum TI 99/4A an. Die Besucher 
der Messe kamen hauptsächlich 
aus dem Mittelwesten der USA. 


Die meisten waren offensichtlich 
wegen des neuen 99er Computers 
der Fa. Myarc gekommen. So war 
jedenfalls der Hörsaal überfüllt, als 
Lou Phillips von der Fa. Myarc ei¬ 
nen Vortrag über eben diese Ent¬ 
wicklung hielt. Nach einleitenden 
Worten und der kurzen Vorstel¬ 
lung des Myarc Disk-Controllers 
und eines neuen Extended Basic, 
welches speziell auf der 128K- 
Byte RAM-Erweiterung der Fa. 
Myarc läuft und diese voll ausnut¬ 
zen kann, ging Lou Phillips dann 
näher auf den neuen Computer ein, 
der noch keinen Namen hat. Der 
Prozessor ist ein TMS 9995, mit 
6 MHz getaktet. Die RAM-Kapa- 
zität liegt bei 256 KByte, ausbau¬ 
bar bis über 1 MByte. Als Video- 
Prozessor kommt ein 9938 zum 
Einsatz, der gleiche Prozessor ist 


TI99/4A 


PERIPHERIE 


Disccontroller (Orig. TI) 399,— 

RS 232 Karte atronic 359,— 
P-Code-Karte (Orig. TI) 799,— 
Compact PeripherieSystem CPS 99 
mit 1 Diskettenlaufwerk DSDD 
+ 10 Disketten 3M 744 D-0 1698,— 
Diskettenlaufwerk intern DSDD 
mit Einbausatz (Epson) 429,— 

32 K-Karte (Atronic) 379,— 

Externe 32 K-Erweiterung 239,— 
dto. + 1 Centronics- 
schnittstelle 289,— 

Externe 32 K-Erweiterung 
+ Centronicsschn. + Kabel 
+ Epsondr. LX 80 1259,— 

dto.+ Epsondrucker FX 851759,— 
dto. + Stardrucker SG 10 1279,— 
dto. + Stardrucker SG 15 1579,— 
Sprachsynthesizer 189,— 

Modulexpander 3fach 125,— 

RGB-Modulator 179,— 

Akkustikkoppler Dataphon S 21d 
+ externe V-24-Schnittstelle 
+ Verbindungskable 559,— 

Externe 256 K Erweiterung 589,— 
Joystickinterface + 2 Joysticks 
Quickshot II 89,— 

Cassettenrecorderkabel 29,— 
MBX-Sprachsteuereinheit + 
Baseballmodul anschluß¬ 
fertig 349,— 

Grafiktablett Supersketch 
+ Dig Dug + Defender 
+ Statistik nur 199,— 

TI — Maus 259.— 


BÜCHER 


Eidtor/Assembler Hand¬ 
buch dt. 

Extended Basic Hand¬ 
buch dt. 

TI Basic & Extended 
Basic dt. 

Mini Memory spezial dt. 
Assemblerhandbuch für 
das Mini Memory dt. 
Ti-99/4A intern dt. 


MODULSOFTWARE 

Extended Basic (Orig. TI) 259,— 

Extended Basic 

(dt. Nachbau) 199,— 

Extended Basic II Plus 289,— 

Mini Memory + Assembler¬ 
handbuch Mini Memory dt. 299,— 
Editor/Assembler 
(32 K notw.) 159,— 

Tl-Writer (32 K notw.) 259,— 

Multiplan (32 K notw.) 259,— 

Tl-Logo II (32 K notw.) 299,— 

Diskfixer (Navarone) 149,— 

Terminal Emulator II 85,— 

Connect four, Yahtzee je 29,— 

Attack, Chisholm Trail, 

Car Wars, Invaders, Alpiner, 
Tombstone City, Othello, 

Story Machine je 39,— 

Parsec. Munchman, Indoor 
Soccer, Hopper, Defender, 

Dig Dug je 49,— 

Fathom, Microsurgeon, Bigfoot, 
Burgertime, Espial, Sewermania, 
Treasure Island, Statistik je 59,— 
Star Trek, Tunnels of 
doom je 69,— 

Buck Rogers, Congo Bongo, 

Return to Pirates Isle, '• 
Adventuremodule je 75,— 

Video Chess, Moonsweeper je 79,— 
Datenverwaltung + Analyse 79,— 
Popeye, Jungle Hunt, Moon 
Patrol, Ms. Pacman, Pole 
Position, Donkey Kong, 

Protector II, Shamus je 89,— 

Touch Typing Tutor 89,— 

Video Chess + Defender + 

Dig Dug nur 129,— 

Jungle Hunt.+ Moon Patrol 129,— 

DISKETTEN- UND 
CASSETTENSOFTWARE 

Superbasic, Exbasic II + Painter, 
Extended Basic Compiler, 
Graphicmaster, 3D-World, Forth, 
Apesoft-Programme, Flug¬ 
simulation, Skat, „Der schwarze 
Kristall" a.A. 


Alle Preise inkl. MWSt. zuz. Versandkostenpauschale 
(Warenwert bis DM 1000,—/darüber): Vorauskasse 
(DM 8-/20-), Nachnahme (DM 11,20/23.20), 
Ausland (DM 18,—/30,—)..Versand nur gegen Voraus¬ 
kasse oder per NN; Ausland nur Vorauskasse. Ge¬ 
samtpreisliste gegen Freiumschlag. 

CSV RIEGERT 

Schloßhofstr. 5,7324 Rechberghausen, Tel. (07161) 5 28 89 


auch bei MSX-Computern der 2. 
Generation zu finden (MSX II). 
Dieser Prozessor ist voll software¬ 
kompatibel zum TMS 9929, der 
im TI 99/4A eingebaut ist, kennt 
jedoch zusätzliche Modi. Einmal 
ist da ein Textmode II zu nennen, 
mit 80 Zeichen je Zeile. Dann ge¬ 
stattet der Prozessor auch hochauf¬ 
lösende Grafik mit 512x212 Punk¬ 
ten bei 16 Farben bzw. 256x212 
Punkte bei 256 Farben. Bis zu 8 
Sprites können sich maximal in ei¬ 
ner Reihe befinden und mehrfarbi¬ 
ge Sprites sind möglich. Das VDP- 
Ram ist serienmäßig 64 KByte 
groß, kann bis 128 KByte aufge¬ 
rüstet werden. 

Mit kleinen Einschränkungen läßt 


sich die Peripheriebox des TI 99/4A 
anschließen, das Kabel mit der 
Treiberkarte muß aber geändert 
werden. Es arbeiten mit dem neuen 
Computer auch nicht alle Karten 
von Fremdanbietern. Zu bestehender 
Software soll der neue Computer zu 
95% kompatibel sein. Hauptsächlich 
liegt das an einer geänderten Tasta¬ 
turabfrage, da eine andere Tastatur 
zum Einsatz kommt. Der von der Fa. 
Myarc angepeilte Preis soll bei 
499,- Dollar (=1250,- DM) liegen. 
Es wurde aber lediglich eine nicht 
funktionsfähige Platine sowie eine 
Gehäuseatrappe mit Tastatur gezeigt. 
Auch über einen Liefertermin war 
noch nichts zu erfahren. RS 
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BÖRSE 


Verkaufe: Editor/Assembler 
auf Kassette für TI-99/4A: 
DM 70,—. Lothar Krauß, 

Tel. 0561/887129 (18 bis 21 
Uhr) 


Verk. TI 99/4A kpl. auch 
einzeln: P-Box mit 32 K, 
RS232, Controler + Lauf¬ 
werk DM 1500,—; externes 
LW DM 500,-; Epson RX 80 
F/T + Centronickabel DM 
800 -, C-Rock RCR 400 
DM 300,— ; Tl-Writer dtsch 
DM 200,—; Mini Mem + 
dtsch Handbuch DM 200,—; 
DAMAST kpl. DM 300,-; 
Sp. Editor + Synth. DM 
150,—; Ex-Basic + dtsch. 
Handbuch DM 200,—; viele 
Programme, Spiele u. Lite¬ 
ratur auf Anfrage, 

Tel. 02234/79646 


Super-X-Basic-Spiele A. Kas. 
Space Shuttle, der Fluch des 
Pharao (Grafik-Adventure), 
Roulette 20 M (bar) je 
Spiel senden an: H. Schulz, 
Lippcstr. 150,4712 Werne 


Suche Schaltbilder von TI- 
Hardware (RS232, 32K, 
Speech, usw.) Olaf Brixel, 
T.09923/2215 ab 14 h 
Mo-Do 


Verkaufe Editor Assembler 
Modul mit deutschen und 
englischen Handbuch sowie 
Adventure Modul mit Pro¬ 
grammen. Preis: VB 
Peter Fouquet, Olberskamp 7 
2 Hamburg 74 
T.040/7330203 


Verk. RS232 Corcomp IIOV: 
200 DM. Rainer, 06238- 
3741 abends 


Verkaufe: TI99/4A + P-Box + 
RS232 + 32K+ int. + ext. 

LW + XBasic + Tl-Writer + 
E/A + Tl-Invad. + 30 Disk + 
Lit. + Software. DM 2500,— 
U. Schulze 09126-5801 


Tausche Tl-Writer gegen Disk- 
Manager! Suche deutsche 
Beschreibung für Multiplan! 
Tel. 089/358911 Krause 


Verk. leicht defekten TI 
4A + Kabel Tel. 08421/7739 
ab 17 h 


Orgel II: ausgereiftes Musik¬ 
programm (Ex.B.); spielen, 
erstellen, zuhören etc; viele 
Variationen; komfortabel; 
einfach zu bedienen; da zeigt 
d. TI was er kann! INFO 
für 1 DM bei D. Augustin 
von Hasewinkelweg 87, 

5020 Frechen 4 


Tausche Schachmodul gegen 
Pole Position oder Daten- 
verw. + Anal. Tel. 08421/ 

7 739 ab 17 h 


Verkaufe TI99/4A-Computer 
+ Recorderkabel für 240,— 
DM. Parsec: 40,—; Attack: 
30,— DM. Komplett für 
300,- DM. 

Wollgarten, Tel: 02473/7313 


Verk. für Adu. Modul 12 TI 
Spiele auf Disk. DM 25 + 
XBasic Buch engl. DM 20. 
Liste mit 200 Prgm. gegen 
Rückumschlag 
Tel. 07141-461 147 


Adventure Modul +12 Spiele 
auf Disk. DM 85 + Speech 
Edit. DM 60 + Zero Zapp 
DM 35 

Tel. 07141-461147 


Suche defekten TI99 für 
50 DM, Jürgen Krause 
09194/787 


Durch Syst-Erw. Verkauf: 
MBI-Interf. m. Kabel (DM 
190), Drucker Seikosha 
GP 100A (DM 300) sowie 
bespielte Cassetten. Liste 
gegen frank. Freiumschlag. 
R. Schwalbe, 4353 Ober- 
Erkenschwick, Händelweg 8, 
02368/6237 


TI99/4A + Leergh. + 100 Pro- 
gr. 299 DM / 16 Module ab 
15 DM /TI-Cass. 15 DM 
4 TI-Bücher ab 10 DM / TI 
+ Ex. Progr. auch Tausch / 
Info 1 DM bei Ralf Schmitz, 
Am Telegraf 14, 5068 Oden¬ 
thal 3 


Verk. TI99/4A Konsole + 
Mod + Lit + Softw + Joyst. 
event. JVC-Farbmonitor 
(auch für Video) alle Nor¬ 
men 

Tel. 02237 52955 


TI-Laufwerk 51/4” VS 
Assembler 1+2 (TI-Journal) 
je 20 DM 
Volker Lendle, 

T. 07181/ 82492 


Habe TI. Will Times Printer + 
Anschlüssen. PL an 10 TI 
+ Spectrum habe ich. 

Wer hilft? 

Daniel Weyde, Penningkarid 
4, NL-144IXX Purmerend, 
Holland 


Verkaufe: Buch Basic/Exten- 
ded Basic neu (orig. TI) 

DM 25,— (Neupreis 49,—) 
Josef Hövelmann, 

T. 02651/3821 nach 18 h 


TI99/4A + Kassettenkabel 
+ Bücher 200 DM. Biniak 
06104/63500 


Achtung! Neue Software 
Simplextableau u. a. Info bei 
Kaltenbrunner N., Bacherg. 8, 
A-3500 Krems/D 


Suche günst. RS232 ext. 
Tel. 089/3137650 auch 
Interesse für Prg-Eprom für 
Modplatine 

Peter Eisenbraun, Rathenau 

str. 134, 8000 München 45 


Verkaufe Ext.-f,erncassette 
mit dt. Anletung 12, 50 DM 
und Rechenlernmod. für 
1. — 3. Schg. DM 10,— 
0203/772112 Joussen 


Suche Tl-Invader Modhergest. 
in den USA bis ca. 35,— 

Verk. ungebr. Kass. RecKabel 
060554684 


Verkaufe RS 232 C-Karte für 
Peri-Box 4 Monate alt für 
300,- DM 
Tel. 08192/231 


Suche preiswert dt. Hand¬ 
buch für ExB &: Pole Position 
Modul. Angebote an U. 
Gemmel, Berliner Str. 50, 
2800 Bremen 


Verkaufe für TI99/4A 32 
KRAM extern oder intern 
Preis: 320,- DM VB 
Peter Vorwerk, Im Bans 8, 
2080 Pinneberg 


ExtBasic = DM 120, Rec. 

Kbl. = DM 20,-, Module: 
Datenver., Parsec = je DM 20; 
Bücher: Basic/Exb f. An- 
fänger/Forg. + 99 Spez. = 

DM 20 

Paul Manfred, Mariannenweg 
10, 8044 Lohof, T. 310 71 63 


!!!R. G. Softgame !!! 
Spitzen Programme in Basic 
oder X-Basic 
Info bei Zusendung von 
1,50 DM 

R. Goerke, Watzling 10, 
8250 Dorfen 


Verkaufe orig. TI-Disk- 
Karte (300,—) sowie orig. 
TI-Laufwerk (300,—) für 
P-Box. 

Tel. 0231/634625 ab 21 h 


Verkaufe: Ex-Basic + 
Parsec + Bücher + Rec.- 
Kabel + Software für VB 
DM 230,- 
Tel. 02591/3285 


Verkaufe externe 32KRAM 
Erw. 200 DM + Speech 
Editor Modul 20 DM 
G. Weichselbaumer, H. 
Heckenweg 282,4400 Münster 

99/4A Kons. Def. + Rec + 
Kabel + Ex + Joy + Bücher + 
TI Rev + Div. Listings + Cass. 
DM 300,- Tel. 0451/692085 


Suche E/A Modul und 
Modulexpander (mögl. 8- 
fach) 

Günter Helmes, Ortsstr. 5, 
2871 Hude 1, Hurrel 
04408/1933 (19-20h) 


Verk. 2 TI99/4A Joyst. Ext. 
Basic MM. Invader Soccer- 
Blasto-Spiele auf Cass. Bücher 
u. TI Unterlagen Pr. 900,— 
Lorenz Helmut, Stormstr. 13, 
3420 Herzberg/H. 


Suche P-Code, Karte Pascal 
Compiler, Editor, Linker 
sowie 1 28KRAM-Karate 
Angebote 089/1572559 


Suche TE II Modul: Wer ver 
schenkt kaputte Hardware 
Übernehme Versandkosten 

Tel. 02236/41342 


Verk. TI99/4A + ExBasic 
+ Box + Laufwerk + 32 K + 
E/A + Deutsch. Handbuch 
+ Grafik-Tablett+Jost. + 
Sprachsynthesizer + Rec- 
Anschlußkabel + 25 Dis¬ 
ketten mit 150 Prg. 

VB 1999,- 
Tel. 06108/69766 


Verk. TI 99 + Ex. - 300,- 
Box + Laufwerk + 32 K + 
Coritroller + 20 Disketten 
- 1200,-. Tel. 06108/ 
69766 


Suche TI-Touch Typing 
Tutor und andere Lernpro¬ 
gramme (außer Grundrech¬ 
nen). Tel. 0228/347541 


Suche billiges Pole Position 
Modul und tausche dagegen 
Chisholm Trail mit Drauf- 
zahlung (25 DM) 

P. Becherstorfer, Kirchholz 
1, A-4076 St. Marienkirchen 


Verk. TI99/4A + XBasic 
+ Disklw/TI + Contr. + 32K 
+ PBox + Handbücher + 
Speech + TI Writer + Schach 
neuwertig / DM 1400,— 
Klaus Glasser, Rosenweg 2, 
8400 Regensburg 
0941/704172 ab 18 h 


Verkaufe TI99/4A + Ex.B. + 
Kass. Rek. + 3 Module + ca. 
100 Prgm. + Bücher + Zeit¬ 
schriften. Nur zus. 550 DM 
Tel. 089/9505675 ab 19 h 


60 












































BÖRSE 


Wollt ihr Masch-Progr. auf _ 
Cassette? Habt Ihr ext. + 
32K? Dann fordert Info/ 
Rückporto D. Karbach- 
Remscheiderstr. 18 — 565 
Solingen 1 


Verkaufe: TI99/4A+R-Kabel 
(180,-) +Joyst (TI) 25,- 
+ Module: Statistik, Daten- 
verw. je 40,—, Othello 20,— 
Minus M., Alien Addition 
je 10,— + Basic Kurs 10,— + 
Div. Lit u. Progr.: Alles für 
275,— A. Kettenis, Engel- 
str. 56, 55 Trier 


Suche Disk-Controller und 
Laufwerk, ext. o. intern. 
Intern mit P-Box. Tel. 0202/ 
783656 ab 17 h 


Verkaufe EPSON CX-21 D 
mit Y-Kabcl (6 m!) für TI 99 
/4A (Koppler auf RS232/2 
232/1 = Drucker) + TE 2 
gegen Geb.; nicht unter DM 
500,- 

Diethelm Schädler, Kranich- 
str. 1 1, 6700 Ludwigshafen 


Wer tauscht mit mir Soft¬ 
ware in Exb.? Liste an: 
Clemens Traugott, Humboldt- 
str. 130, 85 Nürnberg 40 


Suche Controller für original 
TI-Laufwerk. Angebote bitte 
an: M. Schwarz, K.-F.-Stv. 
96, 7530 Pforzheim 


Komplette TI Anlage mit 
2dsk Laufwerken drucken 
usw. 100 DSK mit super 
PGM Tl-Writer TE1200 alle 
Graphicpgm e/a anwend. + 

85 Spiele in Assm. viel Lek¬ 
türe + Zubeh. + Schrank 
Wert ca. 9 — 10.000 DM gegen 
Gebot mind. 4000 
T. 02041/28321 


TI + Ex + EA incl. Dtsch 
Bücher + Box + V24 + 32K + 
2 Laufw. + Sprsynti + Tl-rec 
+ Drucker + Tel 200 + Te2 + 
TI Writer + Ex.-Bas 2 alle 
Graphik PGM 20 Cass + 

100 dsk dabei ca. 90 Super 
EA Spiele + viel Lektüre + 
Zubeh. alles im fahrb. Rack 
DM 4.000,- Tel. 02041/ 

28 321 


Achtung Drucker EP22 An¬ 
schlußfertig für TI 260 DM 
Suche günstigen FX o. RX 80 
02041/28321 


RTTY mit TI99/4A: wer 
kennt Programm oder kann 
weiterhelfen. Info bitte an 
G. Trunk, Urnenstr. 9, 
6700 Ludwighafen 25, 

T. 0621-678578 


Zu verkaufen: 

TI99/4AM. Kompletter 
Erweiterungs-Floppy-Box, 
ext. Bas. TI Writer Daten- 
verw., Text + Datenstatist, 
Music, Disk-Order, Basic- 
Routinen + Statik 
05331/401397 


Suche E/A Modul, Farb- 
Drucker, TE II, A. Koppler 
Verk. Progr. a. Cass. Liste 
g. Porto bei P. Mertineit, 

In der Olk 20,5501 Gusterath 


Suche Kontakte und Tausch¬ 
genossen in In- und Ausland! 
Im Inland wäre Bochum 
ideal! Adresse: Volker Reh¬ 
bronn, Deinsloh 14, 463 
Bo-Grummee, also, Ti-ler 
rafft Euch auf! 


Biete PC Casio FP 1000 mit 
Grünmonitor gegen div. TI- 
Periph. G., Stapelfeld, 

2000 Hamburg 61, Voßkamp 
27 


Suche zwecks Tl-Vercinsgrün- 
dung Kontakte in Bochum! 
Volker Rehbronn, Deinsloh 
14, (Bo-Grumme) 


Suche Sprachsynt. sowie 
Terminal Emulator z/Ange¬ 
bote an W. auer, Kantstr. 18, 
645 Hanau 
T.061811251556 


Tunnel of doom 60 DM 

Schachmodul 50 DM 

TI Invaders 30 DM 

Driving Demon 50 DM 

Topper/ähnl. Qbert 40 DM 
Hangman 20 DM 


W, Auer, Kantstr. 18, 
654 Hanau 
06181/251556 


Suche Kontakt mit TI- 
Usern Soft, Hardw., Erfah¬ 
rungsaustausch". Suche TI- 
Writer, Deutsches Handbuch 
für MM u. E/A Kopie oder 
gebraucht. Frank Müller, 
Ursfelderstr. 49, 5014 Kerpen- 
Tuernich, T. 02237/8278 


Suche Minimen und Adven- 
ture-Modul. Tel. 04252/1210 
ab 18 h 


Wer hat Erfahrungen mit dem 
TI 99/4A als Mailbox? Mel¬ 
den bei: Tigger Workshop 
Rheinland, Mike Heuser, 
Karl-Marx-Alle 18, 5000 Köln 
71, Tel. 0221/703979 


Habt Ihr Probleme mit 
Kabeln oder Prots an eurem 
TI? Hilfe bietet Tigger Work¬ 
shop Rheinland. Tel. 0221/ 
737575 oder 703979 


Verk. TI99/4A-Box+32k-Disk 
Kontr.+Centronics/2xRS232 
+ 1 int. Laufwerk + 1 ext. 
Laufw. m. Ntzt. + Disk Ma¬ 
nager Modul + 2 Datenverw. 
Module + Multiplan + Buch¬ 
haltungsmodul + PRG-Samml. 
+ umfangr. Literatur für 
2500 DM VHS, T. 06216/ 
78578 

MBI multi Board Interface 
TI99/4A auf Centronics für 
200 DM VHS zu verkaufen. 

T. 0621-678578 


TI99/4A+Box + Laufwerk + 
Contr. + 32K + RS232 + 
Exba + Minimen + 

EAModul + Forth + Deutsch- 
literatur 2400 DM 
08141/94897 


Verkaufe TI-99/4A + Ext. 
Basic + Rekorder mit Kabl 
+ Joystick mit Adapter + 
Spielmodul + Programme/ 
Basic-Lernpr.) + Literatur 
Tel. 08734/1572 


TI-99-EXB Lohn- u. Ein¬ 
kommensteuer Super Jahres¬ 
ausgleich, Steuerkl.-wahl, 
Monatslohnsteuer, Analyse 
u.a. Jährl. Aktu ohne Neu¬ 
kauf! Cass. 60,— Info gg. 

RP! H. liehen, Niderfelder- 
str. 44, 8072 Manching 
08459/1669 


Suche: Orig. Peripheriebox 
mit Schnittstellenkarte. 

K. Socas, 7141 Benningen 
a.N. Tel. 07144/14784 


Verk. TI99/4A + Ex.-Basic 
3 Module (Parsec, TI In¬ 
vaders Schach), Rac. + Kabel 
Programme, Literatur, Joy- 
st. VP: DM 700,- 
Thomas Döring, An der 
Struth 5920 Bad Berleburg 4 
T. 02751/5462 


Verk. Thermodr. Tl-Silent 
743 80 Z. m. 4 Rollen Papier 
u. orig. TI-RS232-Kabel, 

1 Pixel zeitw. def. sonst o.k. 
Nur alles zusammen. Ideal für 
TE-II u. DFÜ DM 400,- 
Becker 06201/16272 18-21h 


Wer hat Interesse an Parsec, 
Alpiner oder TI Invaders? 
Billig! Anruf bei S. Altstadt 
07253/22681 


Verkaufe TI 99/4A 2 x 
Konsole, Ext. Basic, EA¬ 
Modul, Schach, Disk-Con¬ 
troller, RS 232, 32 KB- 
Ram, 2 Disk-LW, SP.-Synthe¬ 
sizer, P-Box, Druckerkabel, 
Monitor Lit. 1950,— 

Tel. 0941/25578 


Verkaufe TI99/4A m. Ex.- 
Bas, Disk-LW, Cassettenkab., 
Literatur; auch einzeln!!! 
Angebote an: Martin 
Schwarz, Kaiser-Friederich-. 
Str. 96, 7530 Pforzheim 


Verk. orig. TI-Exbas + engl. 
Handb. DM 160,-, TI- 
Sprachsynth. DM 80,—, 
TI-Module: Hustle, Soccer, 
Tomb. City je DM 30,—, 
Flugsim. (Cass) DM 30,—, 
Recorder + Kabel DM 30,— 
T. 0203/495005 nach 21 h 


GPL-Disassembler für XB+ 
32K + Disk, mit ausf. An¬ 
leitung, 25 DM. Zus. Befehle 
für XB + 32 K via Call Link, 
z.B. PEEKV, POKEV, LEFT, 
PEEK-GPL,.usw. 30 DM. 

R. Prinzensing, Gcitlingstr. 
27, 4630 Bochum 6 r 
02327/61592 


Deutsche Erklärung aller 
Forth-Wörter 25 DM. Ca. 

25 neue Forth-Wörter z.B. 

2 DUP, 2ROT, 2 VARIAB¬ 
LE, DUMP, U.R. RND, 
Floating-Point-Routinen, 
z.B. FSJN, FLOG, F=, F(, 
usw. 30 DM. 

Rainald Prinzensing, Geit- 
lingstr. 27, 4630 Bochum 6, 
02327/61592 


!!! Gelegenheit!!! TI99/4A 
Zubehör: TI-Extended- 
Basic mit Buch, Bedienungs¬ 
anleitung 2 Referenzkarten, 

1 Joystick, 1 Experimentier¬ 
platine und viele Programme 
auf Cassette. Komplett: 

DM 395,—J. Engberg, 

T. 08431/48236 ab 18 h 


Verkaufe engl. Handbuch für 
das Extended-Basic-Modul 
für 25 Deutsche Mark. Aus¬ 
kunft unter der Nummer 
07156/34941 - C. Jarque 


Verkaufe 100-100 Program¬ 
me aus meiner Spielesamm¬ 
lung für 45 DM ohne Neben¬ 
kosten für Porto und Cas- 
setten !!! Bei Interesse wen¬ 
den Sie sich bitte an: C. 
Jarque /T. 07156/34941 od. 
Ludwigsburgerstr. 14 / 

7257 Ditzingen 1 


Verk. Buchungsiournal 150,— 
TI-Basic Tutor (Cass.) 10,—, 
Rechnungsstellung, Lagerver¬ 
waltung je 80,—, Mudul Stati¬ 
stik 40,—, Datenverw. + Anal. 
75,—, Vokabeltrainer (Cass.) 
10,—; Connect Four (Mod.) 
20,- Tel. 0711/719267, 

R. Unruh 







































Ext. Basic-Modul für TO 99/ 
4A zu verkaufen — Preis 
VHS. Tel. 04102-64889 


TI-Einsteiger — Billig-Konsole 
kompl. mit XB-Modul + Div. 
Kassetten DM 200,— 
Sprachsyn. 50,— TI-Bücher 
„Spielpr. selbst erstellt“ 

1+2 DM 30,— Div. Module 
je DM 30-/10,- 


Verk. TI99+Ext.-Basic+ 
Rek.-Kabel+2 Joyst.+Pro- 
gramme+viel Literatur+ 
Schaltpläne für DM 350,— 
Tel. 06131/685797 


Cass. Kabel DM 15,— 

Old. B. 600 D DM 5,- 
Bas. f. Anfang. DM 5.— 
Div. Basic-Progr. Bücher ab 
15,-. Tel. 06638/1503 


TI99/4A + Ext. Basic m. dt. 
Handbuch + Car Wars + 
Schach + Joyst. + Selbst¬ 
lernkurs TI Bas. u. Ex. + 
Rec. Kabel + Listings + 
Progr. a. Kass. VB 650,— 

T.02861/5928 


Verk. Module: Statistik, 
Text/Datenverw., Daten- 
verw/Anal, je 55 DM, Bu- 
chungsjo. 160,—, ext. Cen- 
tronic, Bus durchg. m. Kabel 
dir. an Konsole 180,— Dsk 
Rechnungsst. 50,— alles 
neuw. 

0531/848884 n. 17 h 


Verkaufe orig. TI-Disk-Con- 
troller und orig. TI-Lauf- 
werk int. N. Keller, 

Tel. 06081/7477 ab 16 Uhr 


64-KRAM-extern, DM 200,— 
Ext. Basic + Software 
DM 150,-. Schach DM 40,- 
Tel. 02596/2638 


TI99/4A + Module + Cass. 
Kabel + ca. 50 Spiele + 

2 Joysticks (TI) + 2 Bücher 
zu verkaufen VB: 350 DM 
Tel. 02173/60653 


Verk. TI99/4A * 32 K ext. * 
Recor. * Exb. II plus * Rec. 
Kab. * Joy. Ada. * Parsec * 
Moonsw. * Donk. Kong * 
Invad. * Quickshoot 1+2 * 
TI-Rev. 1 — 10 * 16Microproz. 
Kurs. Buch * Tips + Tricks 
** Neu: 1500 DM *** 

Jetzt: 900 DM Vill 
089/966049 


Anfänger sucht für TI 99/4A 
Software gegen Bezahlung. 
Tel. 04956/1402 


BÖRSE 


Suche Programme für das 
Minimemory. Liste an: 

S. Altstadt, Hochstr. 23, 
6913 Mühlhausen-Re. * 
Dringend* 


Ext. Basic Buch + Zeit¬ 
schriften + weitere Literatur 
für zusammen nur: VHB 
DM 150,-. Oliver Kaluza. 
Tel. 05642/258 


Verk. o. Tausch g. Wertausgl. 
Org.-Laufw. int. 250,— 
Module: Invaders 30,— 

Parsec 30,—, Buch-J. 100,— 
E/Ass 100,-, Disk-M. 2 80 - 
Schach 50,—. Allig-M. 10,— 
(alle m. Anl.) 2 Joyst. m. Ad. 
NP 100,-, 50,- 

Suche: Speechsynth. um 

80,-. T. 07240/5300 


Verkaufe 32K, RS 232, Lauf- 
w., Controller (alles extern) 
sowie Module Alpiner, Othel¬ 
lo Fitness Training, Buchungsj. 
Dateiverarbeitung, Speeded., 
Parsec u.a. 

Kaufe P-Box mit Karten 
T. 07243/78582 


Defekte Exp.Box-Karten, 
Module (nicht Spiele) Inter¬ 
faces, Konsole, ext. Geräte 
für den TI99/4A von Bastler 
gesucht. Angebote: 

Tel. 0721/575694 nach 18 h 


Verk. TI99/4A (1983) + Org. 
Ex-B. mit dt. + engl. Handb. 

+ Recorder + Tl-Joyst. + 
Modul + Buch + TI-Revue- 
Hefte + 200 Programme 
VHB 330,— DM (auch ein¬ 
zeln) 

Manfred Walkmann 
Lilienweg 50, 4933 Blom¬ 
berg, Tel. 05236/1365 ab 188 
Uhr 


Verkaufe Radix-Miniassemb- 
ler mit Handbuch & Software 
für 115 DM VB! Suche 
Assemblerroutinen für hoch¬ 
auflösende Grafik in Ex. 
Basic! Mike Rohrmoser, 
Nietzschweg 16, 4300 Essen 
14, T. 0201/530687 


Tausche das Modul Chisholm 
Trail von Texas gegen Car 
Wars od. Tombstone City od. 
Amazing od. Wumpus od. 
Blackjack und Poker od. 
Hustle od. Attack od. Zero 
Zap + 15 Prgs in Ex-Basic. 
Würde das Modul auch gegen 
das Modul Pole Position 
tauschen. Würde auch 25 - 
35 DM zusätzlich bezahlen! 
Angebote an Carlos Jarque/ 
Ludwigsburgerstr. 14 / 7257 
Ditzingen 1 oder 
Tel. 07156/34941 ab 18 h 


Achtugn! Zu verkaufen: 

Fast neu, wenig gebraucht 
TI 99/4A + Ext mit D-An- 
leit. ca. 30 Prg. + 50 Listings. 
Nur DM 400,- 
Wisler Patrick, Bumplizstr. 
84a, 3018 Bern (CH) 


Verkaufe: Invader Modul 
DM 30,— und aktionreiches 
Ski-Spiel in ext. B. auf 
Disk. DM 25,— Markus 
Junghanns, Magdeburger 
Str. 1, D-6054 Rodgau 3 
Tel. 06106/74182 


TI 99/4a orig. P-Box 300,- 
orig. 32K-RAM 200,- orig. 
Ex-Basic 200,— 
02224/75610 


Verk. Statistik, Rechnungs¬ 
st., Dat. u. Analyse neu 
a 50,— Suche RS 232 int. 
200,— Ed. Ass. dt. Handb. 
Tl-Writer a 150,— Speech 
Syn. 90,- 
Tel. 07586/636 


Tausche Parsec gegen 
Musicmacer. Joystick Adap¬ 
ter (Quicks II) 5 DM. 
Tausche Programme suche 
Kontakt in Whm. 

Tel. 02601/21429 


Tausche Programme in XB 
und Ti-Baisc Liste an Jörn 
Soukup am Brahmberg 28, 
2358 Kattendorf, Tel. 
04191 54 09 


TI 99/4A mit X-Basic, 
Parsec, Joystick — Inter¬ 
face, eingebauter Sprach¬ 
synthesizer, Rekorder¬ 
kabel, incl. aller Hand¬ 
bücher und Literatur für 
400,- DM. Tel. 08192/231 


TI-Reste: Kons. + XB-Modul 
+ Progr. 200,— Speechs. 

50,— E/A + deut. Handb. 
100,- TEII + Dt. Handbuch 
60,- ADV.-Modul + Prg. 
50,— Parsec, Moonmine, 
Treas. Isl. 7E 30,—, Wumpus, 
Munek, Inv. AE 10,— Copy 
A Disk 30,— Dissaem Disk 
10,— Assembl. Kurs Asem 4 
+ Disk + Hagera II (neu) 

+ Dis 80,— TI-Buch „Spiele 
1+2“ 30,-. Tel. 0932/4636 


Tausche Software in TI- u. 
X-Basic. Liste an: Jens 
Tiedemann, Gossestr. 26, 
2070 Ahrensburg 


Verkaufe: Drucker DRH 80 
Schnittstelle RS 232, Farb¬ 
band neu DM 500,— 

Tel. 0911/352730 W. Fahr, 
Uhlandstr. 11, 8500 Nürn¬ 
berg 10 


Verkaufe: GP5,50 nicht viel 
gebraucht für 450 Fr. / Beat 
Schönauer, Alpenstr. 32, 
CH-2540 Grenchen 

COMPUTER ADE! ICH 
GEB’S AUF! 

Biete: TI 99/4A, Rek, Joyst, 
Rek-Kabel, Div. Bücher und 
Zeitschr., Div. Progr. Kass. 
Module: X-Basic, Datenverw., 
Schach, Invaders (alles orig.) 
Nur komplett: VB 485,— DM 
Tel. 02174/62860 - ab 
18 h 


TI 99-Konsole, orig. Ext. 
Centronics-Schn.-Rec. Kabel, 
Literatur, Programmheft, 

FP 750,-. T. 0202/646279 
abends 


Suche TI/99-Fan in Of. Ich 
bin ein noch junger TI- 
Besitzer. Thomas Jocheim, 
605 Offenbach, Hesselbusch 
Str. 18 


Gelegenheit: Verkaufe TI 99/ 
4A + Rec. Anschlußkabel + 
Tombstonecity + Literatur 
für 250 DM. Tel. 07844/7437 


Verkaufe TI-32K-Byts 
Speichererweiterungen 
Preis: VB 250,— DM incl. 
Porto und Verpackung 
Tel: 0271 78853 ab 18 h 


Suche für meinen TI: 
Joystick und Rekorderkabel 
(möglichst günstig)!! 

Tel. 089/494094 

TI-Besitzer sucht Software 
— vor allem für das Radix 
Mini-Assembler 
Rüdiger Hussy, Tel. 0911/ 
523162 


Hallo an alle TI-Besitzer in 
Nürnberg. Tausche Software 
Rüdiger Hussy, Edmund- 
- Rumpler-Weg 19. T. 523162 


„Tips & Tricks für TI 99/ 
4A“,Teil 1+2, Ext.-Basic. 
Mehr als 27 KB Programme 
auf Kass. gegen 10 DM- 
Schein v. Hielscher, Am Wall 
22, 4401 Saerbeck 

. TI-CLUB-DORTMUND sucht 
Interessenten um eine KAUF¬ 
GEMEINSCHAFT zu bilden 
(Innerhalb der BRD). Infor¬ 
mationen bei: TI-CLUB- 
DORTMUND, Postlagernd 
027971,4600 Dortmund 1, 
Adres. u. Ausrei. Frankier¬ 
ten Rückumschlag beifügen. 

Suche E/A- und TE II Modul, 
Angebote an: S. Landgrebe, 
Schulstr. 8, 2915 Ramsloh 
Tel. 04498/440 
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BÖRSE 


TI 99/4A + Ex. Basic + 64k 
RAM in Konsole + Joyst. + 
Recorder + Literatur für 
600 - DM 
0234/290209 


TI 99 4A + X-Bas. + Spr. 
Synth. Joyst. + Cass. Rec. + 
3 mod. + Graf. Tabl. + 

100 Progr. + viel Literatur 
VB 600 DM. 

Tel. 09721/3940 ab 1 7 h 


ÜSuche!! Preise u.U. höher!! 
Mini-Mem: 90,— ; 32 KRAM 
ext. mit Ccntr.: 190,—; 

32 KRAM ext. ohne Centr.: 
140,—; Speech-Synthesizer: 
80,—; Mini-Assembler: 70,— ; 
Schach: 30,— (Modul); 

TE II-Modul: 20,—; Statistik: 
10,—; Tombstone City: 10.— 
Michael Habermann, 

Tel. 06842/51483 (nach 13 h) 


Zu verkaufen: GP 550 fast 
neu Fr. 450. Habe billige 
Laufwk. B. Schönauer, 
Alpenstr. 32 / CH-2540 
Grenchen 


Verkauf: T1-99/4A + Ext. 
Basic + Record. + Kabel + 
Handbücher + div. Literatur 
+ Spiele = 400,— DM / 
02175/1671 


Suche: Sprach-Mod., Adven- 
ture Mod. u. Cass., Balsto, 
Fußball, Oldies auf Goodies 
II, 08161/65549 ab 17 h, 
C-Clubs 


Verkaufe Ext.-Centroncis- 
Schnittstelle — 149 DM — 
evt. mit Drucker GP 100 A 
300 DM 

Tel. 07821 / 7570 


Suche TI Module Schach 
Othello, Moon Patrol usw. 
Horst Körfer, Zonserstr. 8, 
4047 Dormagen 


TI 99/4A + Ex-Basic + 
Buchung 5 Journal + Cass. + 
Kabel + Joyst. + Literatur 
+ Softw. zu verk. 500,— 

DM VHB T. 06150/40674 

V—k 'H-Perl.-Geräte 

on 15-19 h 
'37 • 



es 


Verkaufe:-Parsec: .40,— DM; 
Schach (deutsch): 80,— DM. 
Nach 17 h. Hermann Woll- 
garten. Tel. 02473/8628 

Suche: f. TI 99/4A ext. Basic 
Tel. 06898/82 565 


TI 99/4A Konsole * Reckab 
Joyst. * Pidcentronkab * 
Basickurs * Marktsimmu 
Parsec * Munchm * Moonsw 
Bücher * Tel. 0711/425795 

Verk. TI 99/4A + ext. 

B + 9 Tl-Zeitschriften + 

Rec. Kabel + Joy Adapter 
für C64 Joysticks + 35 
Pgms. (Kassetten) darunter 
(Basic-Lehrgang ...) Preis: 

50 DM (VB) 

Tel. 02594/81135 


** QUBIE Sc THE CUBES ** 

* Superspiel f. TI 99/4A (Ex* 

* basic, ähnl. Q-Bert), 3 D- * 

* Graphik, DM 25,— incl. * 

* Prgm-Cassette, Porto u. Ver- * 

* sand Softwareinfo gg. * 

* DM 1,-. P. Rieger, Tal- * 

* Straße 64, 6750 Kaisers- * 

lautern * 

*********************** 

LOGO-Interpreter ermög. 
tolle Graphikspielereien (xb) 
20 DM an M. Bannert, Mo- 
zartstr. 5, 8676 Schwarzen¬ 
bach/Saale 


Verk. viele Bücher (billig!) 
zb: TI-Tips&Tricks undjoyst- 
Adapter 25 DM). Suche Pro¬ 
gramme (32 kB). M. Bannert, 
Mozartstr. 5,8676 Schwarzen¬ 
bach. Tel. 09284-8338 


* * *TOP-ANGE BOT* * * 
TI99/4A Box+32K+Disk+ 
Contr.+RS232+GP 200A+ 
XBAS-Dt. Handb., Ass. Edt. 
Mod.Exp., D.Verw., Parsec, 
gute Anw.Softw., 99 Sp.1/2 
usw. Für DM 2000, TI99 
gratis dazu. 

A. Bachmann, 6507 Ingel¬ 
heim, A. Dürer 8, 

T. 06132/86104+773068 


Verk. TI99/4A + Box + Disk 
+ Contr. 32 K+ RS 232 + 
X-Basic + Edit-Assr. TI- 
Writer + Logo + Spiele + ' 
Schach Joyst. + Rgb-Ausg. 

+ Datenverw. Speech-Edit 
+ Synth. + viel Lith Anl. 
Alles Original + Best. Erh. 
DM 3200. T. 089/8342227 
oder 0911/752635 


Verk. TI 99/4A + Ex. Bas. 
+ Dat. Verw. + Schach + 
Finanzverw. + Soccer + 
Spiele + Literatur. Ab 19 h 
Wierzbicki 
Tel. 06142/43366 


Ich tausche mein Modul 
Indor Soccer gegen: Hustle, 
Parsec, Hopper, Tunnels of 
Doöm oder Dig Dug. Karte 
an: Roland Sch., Kirchweg 
7, 5107 Simmerath-Eich. 
Telefon: 02473/7529 (bitte 
nur zwischen 19 und 20 h an- 
rufen) 


Tausche Module: 

Beginning Grammar, Early 
Learning Fuh, Number 
Magic, Tombstone-City 
gegen andere(s) Modul(e). 
Suche Tunnels of Doom o. 
Ret. Pir. ISI 

Christoph Podlech, Dorstener 
Str. 439a. 4690 Herne 2, 

Te. 02325/51459 


Minimemory * 
Tausche gute Software 
Spiele, Utilities, Anwender¬ 
programme. 

Interesse? Liste an: 
Christoph Podlech, 
Dorstener Str. 439 a, 

4690 Herne 2, 

Tel. 02325/51459 


Suche möglichst günstig: 
32K-Erw. extern CC-MOS? 
J, XB (II plus), Tl-Joystick 
oder Adapter, Return to the 
Pirate Isle. Spielmodule 99 
spezial II Angebote an: 

Selim özdogan, VVuppertaler 
Str. 26, 5000 Köln 80 


Verkaufe: TI 99/4A + Re¬ 
corder + Rec. Kabel + Joy¬ 
stick + Module: Parsec + 
zwei weitere + TI Basic / 
Entinger, Westring 22, 
6650 Homburg. Tel. 
06841/71693 


Verk. Ex Basic II. DM 50 
inkl. Porto. C. Kater 
L-7432 Gosseldange 7, 
Rue de Schoenfels, 

Tel. 328060 


Verk. orig. TI Ext.-Basic 
incl. Handbuch für DM 150,— 
und APESOFT-Grafik, Ver¬ 
sion für Mini-Memory-Modul 
und Cass.-Recorder, incl. 
Handbuch für DM 110,— 
Alexander Rupp, Kalmanstr. 
45, 6600 Saarbrücken 2, 

Tel. 0681/45134 


Verkaufe: Befehlserweite¬ 
rungsmodul (8 Befehle) 30,— 
Modul Othello 30,— Modul 
Minus Mission 20,— Modul 
Alien Addition 20,— 

TI 99/4A + X-Basic + Batterie¬ 
gepufferte 32K + Joysticks + 
Recorder + Literatur u. Zeit¬ 
schriften + über 250 Program¬ 
me (viele Maschinenpro¬ 
gramme) für 650,— 

Rainer Gawrikow, Sommer¬ 
hausen 15, 5203 Much, 

Tel. 02245/3983 


Wichtig Wichtig Wichtig!!! 
Suche dringendst das Heft 
Tele Match / Computerpraxis 
12/84!! Zahle je nach Zu¬ 
stand zwischen 2—5 DM. 
Meldet Euch bei mir 
(nach 18h): 

T. 07156/34941 Carlos 
Jarque 


12345678901234567890 
Hallo TI-Freaks! Wir, von 
Rex-Soft, haben ein Heft er¬ 
stellt, in dem sämtliche (?) 
Tl-Clubs in Kurzform vorge¬ 
stellt sind. Interessiert? 

Dann schicke 5-DM-Schein 
an: Georg Küppers, Kelster¬ 
bacher Str. 28, 5138 Heins¬ 
berg II 


Verk. TI 99/4A, Speechsynt 
2 Joyst. 1 1 Module (Parsec, 
Schach usw.) viel Literatur 
500,-. Tel. 06831/41660 
(Klose) 


Nachdem ich die Speicher¬ 
erweiterung aus Heft 4/85 . 
nachgebaut hatte, konnte ich 
sie bis jetzt noch nicht an 
meine PeripherieTBox an¬ 
schließen, da die Anschlüsse 
vom Adreßbus von Al bis 
All nicht aufgeführt wurden. 
Teilen Sie mir bitte die Be¬ 
legung mit. Armin Mohr, 
Schulstr. 34, 7944 
Hebertingen 


Suche Kontakte und Erfah¬ 
rungsaustausch im Raum 
AW-K-D auch Programm¬ 
tausch suche Multiplan/ 
Minimemory EA-Modul an: 
B. Betz, Siegburgerstr. 111, 
5 Köln 21 


TI REVUE: 

Die Nummer 1 
in ganz Europa! 
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TI 99/4A mit angeschlossenem Video Digizer AET;VD 99. 

Vergrößerter Bildausschnitt, 64 x 48 Punkte, 
16 Färb bzw. Stufen mit spezieller Software in druckbare 
2-Farben Darstellung umgewandelt. 


Technische Daten: 

te 64 Grauwertstufen • belegt keinen Speicherplatz im TI • 64 K eigenes RAM, auch als Erweiterung nutzbar 
RAM (auf Wunsch zusätzlich integriert) • incl. Bildverarbeitungs-Software • Darstellung der E».Ider auf dem 
m 256 x 192 Punkte ■ Objekterkennung (lernen durch zeigen) • Grauwerthistogram • Kan ^ et 
ittvergrößerung eines beliebigen 64 x 48 Punktebereiches in Hardcopyrout.ne für Epson FX 80/RX 80 

1498,- DM incl. MWSt. 

ANDREAS EHLERDING 


BERATUNG ENTWICKLUNG FERTIGUNG SERVICE ■ NIEDERSACHSEN RING 26 ■ D-3051 WÖLPINGHAUSEN 05037/744 


GPL-DISASSEMBLER 


IHRTI-SPEZIALIST 

hält für Sie bereit: 

32 KB Erweiterung 


auf Diskette 
notwendig 32 K und 
Editor Assembler 

zum Auflisten von- 6 ROM _ Module 


extern Batterie gepuffert 


Preisliste bitte anfordern 


IMMER NEU UND AKTUELL FÜR TI 99/4Ä 


4 -FARBEN-PRINTER-PLOTTER PP-A 4, Centre 
DIN-A 4-Format, Direktanschluß an 32-k- ode 
Weiterung '-v 

' ANSCHLUSSKABEL 

von 32-k- oder 128-k-RAM an PP-A 4 
SLIM-LINE-LAUFWERK 5,25“. 500-k-Byte-Do. 
(z. B. TEAC FT 55 B) S 

EINBAUSATZ tür 2 Laufwerke in original Tl-P-I 
DISC-STEUERKARTE (CorComp), DS/DD, für 
4 Laufwerke 

Kl PI II QUICK-DISC-FLOPPY (im Gehäuse), zurri T 

Konsole, keine Steuerkarte erforderlich 
2.8“-Disketten. mit 5-V-Steckernetzteil, ide 
ten MSX-Version 

DISKETTEN 2.8“. lOer-Pack 
SEHR Tl-MAUS — die schnelle und komfon 
fgEU Software auf 5.25“-Diskette, mit 5-V-*^ 

VIERSPANNUNGS-SCftALTNETZT 

. -24 V. 0,3 A, primär getaktet. 35 W ' 

NfcU klein (80x125x32 mm), offene F 
Druckern, Monitoren etc. 

* Preissenkung — dank groBei 

albs-Alltronic G. Schmidt • Postfac—. 

Tel. 0 70 41 / 27 47 • Telex 7 263 738 ä- 


NEU! 

NEU 










